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FOREWORD 


This report was prepared in compliance with Contract NAS8- 
34964 under G.O. 945301. 


ABSTRACT 

Methods to evaluate the effect of casing flexibility on rotor 
stability and component loads are developed. A survey of some 
more recent Rocketdyne turbomachinery was made to determine 
typical properties and frequencies versus running speed. A 
small generic rotor was run with a flexible case with para- 
metric variations in casing properties for comparison with a 
rotor attached to rigid supports. A program was developed for 
the IBM-Personal Computer for interactive evaluation of rotors 
and casings. The Root Locus method was extended for use in 
rotor dynamics for symmetrical systems by transforming all 
motion and coupling into a single plane and using a 90 degree 
criterion when plotting loci. 
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1 . 0 INTRODUCTION 


High-speed, high-performance turbomachinery is as light in weight as possible. A 
minimum of weight is added for the specific purpose of stiffness whether in the 
rotor, casing or mount. The major purpose of this study was, therefore, to 
develop tools to evaluate the effects of casing motion on the stability of such 
high speed rotors. 

Several approaches were used in this evaluation. First, a survey of typical 
properties for the most modern pumps made at Rocketdyne was made. Second, a 
brief study was made of a fairly simple rotor and casing which is generally 
similar to the SSME main pumps. A third effort involved evaluating several 
existing mainframe computer programs and adapting them into a single program 
which could be run on a minicomputer (IBM-PC) in an interactive mode. The fourth 
aspect of the study was to determine if the use of an entirely different 
approach, the root locus, could be adapted for use in rotor dynamics to achieve 
additional insight to the coupling and stability problems of turbomachinery with 
flexible casings. 
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2 . 0 SUMMARY 


2.1 HIGH SPEED PUMP SURVEY 

The physical properties of a number of existing high speed rotors was accumulated 
and summarized. This summary is included in Appendix A. As an aujunct to this 
survey, existing models for many of the machines were also reviewed to determine 
the extent of models used to evaluate stability and loads. It was rather inter- 
esting that initial models using a rigid mount for the bearings appeared to pro- 
duce a pessimistic stable speed range. In later stages in pump development when 
relatively complex casing models were added, the stable speed range was computed 
to be higher. Two possible explainations were suggested. The first was that 
casing motion itself may increase the stability range. The second was that an 
increase in flexibility of the case in one plane might act like an asymmetric 
bearing stiffness. This has been shown to be a stabilizing factor by several 
studying this problem. 

An additional bit of information found in the survey and review was that in one 
study, modal truncation had been used to evaluate its effect on a pump model. In 
this particular case, reasonable results were obtained when only modes through 
the first rotor flex mode were retained. 

This indicated that perhaps a very simple rotor model would be sufficient for 
generic coupling studies. 

2.2 GENERIC CASING MOTION MODEL 

Analysis of six turbopumps demonstrates that asymmetric housing flexibility 
increases the rotor stability. A rigid housing assumption predicts an instabil- 
ity to occur at lower speed than an analysis with a flexible housing. Conse- 
quently, a rigid housing assumption is more conservative than a flexible housing 
model. The flexible housing acts as en energy absorber and dissipates some of 
the destabilizing forces in the rotor/housing system. 
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A simple 20-lumped-mass turbopump model (10 mass rotor, 10 mass casing) yields 
consistent results with the more complex, detailed turbopump models. That is, 
the rigid housing again renders conservative results. However, it is necessary 
to comply with certain prescribed conditions which are very typical of turbo- 
pumps. It was determined that the asymmetric spring stiffness ratio of the sup- 
ports grounding the housing should be greater than or equal to 3. In addition, 
there is an optimum value of the asymmetric spring stiffness ratio of approxi- 
mately 5. It is not fully understood why stability decreases with asymmetry 
greater than a 5:1 ratio. Another recommended condition is that the housing-to- 
rotor weight be at least 6:1 based on this weight ratio being representative of 
many existing turbopumps. Adherence to these conditions ensures that the simple 
20- lumped-mass turbopump model will yield consistent results with the more 
detailed models. 

2.3 PC ROTOR-CASING MODEL 

A full description of the Rotor-Casing model is included. The program is the 
result of compacting a number of large existing codes written for CDC and IBM 
mainframe computers. The language used throughout t&e program is Microsoft- 
FORTRAN and is compatible with IBM-PC, DOS-1.1 and subsequent operating systems. 
Although the program is capable of handling many degrees of freedom, for inter- 
active use it is recommended that simpler systems be used to minimize computing 
time and maximize interaction. 

A feature of the output summary is a plot of the locus of roots as speed is 
varied. Reference lines equivalent to various damping (percents of' critical) are 
included. As speed is increased, the small changes in modal frequency (due to 
gyroscopics) and the change in damping (angle in the polar plot) are displayed 
quite vividly. The transition of a root into the unstable right hand plane is 
easily seen as is the migration of roots which remain stable. 

A very significant feature is that a root which becomes unstable can easily be 
traced back to its low-speed location. Since the cross coupling affects damping 
with negligible change in mode shape, sensitive system mode shapes are easily 
recognized. 
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2.4 THE ROOT LOCUS METHOD 


Initially a Jeffcott rotor was examined to see if this approach had merit in 
rotor dynamics. The result of this application was quite promising. Basically 
the approach uses the dynamics of the system at zero speed as a baseline for 
dynamics. As speed is increased, both direct planar coupling coefficients and 
cross coupling coefficients increase. The simple model showed that a meaningful 
plot was the locus of system characteristic roots with speed as a parameter. 

Most interesting was that the basic system dynamics could be evaluated in one 
plane (X, Z) and that cross coupled forces could be transformed back into plane 
by recognizing in-plane forces (F (X)) result in orthogonal motion (AY) but 
that for a symmetrical system AY = iAX. Thus, only a planar model should be 
necessary if root locus can be adapted for multiple feedback loops using a 
90-degree angle criterion. 

The problem was approached from a number of directions. Basically the simplest 
model must include a flexible casing with mass supported on two springs. Two 
bearings connect the rotor and casing, gyroscopic cross coupling occurs at the 
impeller and turbine, while cross coupled stiffness occurs between the rotor 
masses and the casing. A shaft with an overhung turbine appeared to be the most 
general case and was used exclusively. Deleting the turbine as an item and add- 
ing its properties to the impeller would serve to estimate the dynamics of a pump 
with outboard bearings. 

Despite several attempts to generate closed form solutions which could be used 
with a root locus approach, the problem soon became too unwieldy. One attempt, 
based on the Microsoft version of p-math, was successful in showing the com- 
plexity and futility of this direct approach. 

A less direct approach was used in which the planar model was described in terms 
of matrices based on primary properties of the case and rotor. Modal transfer 
functions at the two cross coupled stiffness locations and at the two rotor 
masses were developed. A method for closing the cross coupling loops one by one 
(first gyroscopic then hydrodynamic) was generated. A root locus approach using 
a general angle criterion was also generated. 
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A program was written in Microsoft-FORTRAN to evaluate the locus of roots for a 
single primative mode at a time. Major problems were encountered in implementing 
the loop closure section of the program. Some bugs were suspected in the double 
precision implementation of the complex arithmetic statements of the issue of 
FORTRAN. A later version is being obtained but has not yet been received. The 
formulation of the loop closure techniques is also being reviewed. 

At this time the only tool available for the case housing studies is the one pre- 
viously discussed. A root locus display is included and an indication of the 
sensitivity of stability to speed is readily seen. 
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3.0 REVIEW OF ROTORS AND CASINGS FOR ROCKETDYNE TURBOPUMPS 

Table 1 lists pumps which have been built by Rocketdyne. Many of the earlier 
pumps were driven through a gear box and were not capable of speeds where casing 
flexibility would play a role in rotor dynamics. Some used both a fuel and 
oxidizer impeller on a common drive shaft, which normally results in a relatively 
low-speed drive and a heavy, stiff casing. Some of the experimental pumps were 
designed with strong heavy rather than flight weight casings since details of 
hydrodynamics were being studied. In summary, a flexible casing model was never 
required to support many of the pump designs since the casing did not affect 
rotordynamics . 

Data for several recent pumps are contained in Table 2. The approach here is to 
summarize pertinent design information for the pumps and to list the mass proper- 
ties for the casing and rotor as well as free-free frequencies for the rotor and 
frequencies for the casing attached to its mount points. 
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TABLE 1. ROCKETDYNE PUMPS 






F 1 ow , 

Oi scharge 
Pressure , 

Speed 

Units 

Mode 1 

Pump Type 

App 1 i ca t i on 

Fluid 

gpm 

ps i a 

rpm 

hp 

Produced 

MK-2 

$ i ng l e- S tage 

Red s tone 

Ethel 

1268 

450 

4840 


155 


Cent r i gua 1 


Alcohol 




836 





tox 

1294 

340 

4840 


155 

MK-3 

S i ng 1 e- S tage 

Jupiter, Atlas 1 

RP-I 

2000 

950 

31,600 1 

3550 

2551 


Cent r i f uga 1 

Thor, H-l j 

LOX 

3210 

800 

31,600 | 


MK-4 

S i ng le-Stage 

At las 

RP-I 

730 

900 

10,000 1 

1540 

712 


Cent r i f uga 1 


LOX 

1180 

900 

10,000 I 


mk-5 

Ba rske 

AR 

RP- 1 

25 

560 

25,000 1 

50 

30 




H 2°2 

107 

860 

25,000 ) 


mk-6 

S i ng 1 e-$ tage 

E-l 

RP-I 

3200 

1300 

7900 1 

10,800 

2 


Centr i f uga 1 


LOX 

5100 

1100 

7900 ) 


HK-9 

Seven-Stage 

Nuclear Feed 

lh 2 

10,600 

1500 

33,900 

15,000 

10 


Axial 









P i s ton 

LH^ Micropump 


.06.3 

2300 

1200 




LH 2 



MK- 10 

S i ng le-Stage 

F-l 

RP-I 

15,500 

I960 

5600 ] 

59,350 

160 


Centr i fuga 1 


LOX 

24,640 

1550 

5600 | 


MK‘14 

Centr i fuga 1 

H-2 

RP- 1 

2670 

1260 

14,300 1 

7650 

3 


Mixed Flow 


LOX 

2340 

1175 

•4,300 J 


MK- 1 5 

S i x- Stage Axial 

J-2 

LH 2 

7960 

1050 

26,050 

5940 

210 


Centr i fuga 1 

J-2 

LOX 

2840 

920 

8650 

2340 

. 200 

MK“ 1 9 

S i ng le-Stage 

X-3 

lh 2 

3770 

1010 

27,000 

4100 

2 


Centri fugal 


LOX 

1160 

680 

8750 

760 

2 

MK-22 

Multi -Stage 

Exper imenta 1 

LH 2 

4000 

5400 

38,000 

17,000 

3 


Radial 

(MK-22) 







MK- 25 

Four-Stage 

Nuclear Feed 

LH 2 

13,500 

2250 

34,000 

21,000 

8 


Axial 








MK-29 

Two-Stage 

J-2S 

lh 2 

10,200 

2000 

30.500 

14,800 

10 


Centr i fuga 1 








MK- 29 

S i ng le-Stage 
Centr i fuga 1 

J-2S 

LOX 

3270 

1520 

10,350 

3850 

10 

MK-35 


Nuclear Feed 

LH 2 

6100 

1600 

34,000 

7300 

2 

mk-36 

Centri fugal 

F 2 

F 2 

12 

1500 

72,000 

22 

2 

MK-37 

Gear 

F 2 

F 2 

12 

1500 

5200 

15 

2 

MK-44 

Two-Stage 

APS 

Ul 

4600 

1600 

60,000 

800 

2 


Cen t r i fuga 1 









Single-Stage 
Centr i fuga 1 

APS 

LOX 

too 

1600 

30,000 

150 

2 

— 

— 

Pre i nducer 

LOX 

2300 

90 

3930 

170 

1 

MK-39 

Three-Stage 

SSME LPFTP 

lh 2 

16,320 

260 

15,800 

2950 

IS 

MK-38 

Centr i fuga 1 

SSME HPFTP 

lh 2 

16,360 

7000 

37.355 

76,560 

19 

MK-39 

Two Stage 

SSME LPOTP 

LOX 

6080 

440 

5450 

1740 

19 

MK-38 

Centr i fuga 1 

SSME HPOTP 

LOX 

7240 

8435 

31,100 

27.770 

17 

mk-48 

Three-Stage 
Centr i fuga 1 

ASE 

Fue 1 

628 

4560 

95,000 

2543 

2 


S ing 1 e-S tage 
Centr i fugal 

ASE 

LOX 

225 

4320 

70,000 

856 



2 
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TABLE 2. TURBOPUMP DYNAMIC SUMMARY 


DESIGN PARAMETERS 

MODEL 

PRESSURE, 

PSI 

FLOW, 

GPM 

POWER, 

HP 

1 

mm l 

ROTOR 

WEIGHT, 

POUNDS 

CASE 

WEIGHT, 

POUNDS 


MK-38 (CH 2 ) 


16,360 

76,560 

37,335 

128.5 

649 

MK-38 (0 2 ) 

1 

7,249 

27,770 

31,100 

81 .0 

480 

MK-48 (CH 2 ) 


628 

2,543 

95,000 

7.3 

48 

MK-49 (CH 2 ) 


4.2 

1,704 

110,000 

6.1 

48 



COMPONENT FREQUENCIES (HZ) 

MK-38 (CH 2 ) 

MK-38 (0 2 ) 

MK-48 

(CH 2 ) 

MK-49 

(CH 2 ) 

ROTOR 

CASING 

ROTOR 

CASING 

ROTOR 

CASING 

ROTOR 

CASING 

643 

51 

429 

45 

351 

683 

247 

1050 

36 

1319 

116 

900 

73 

375 

1721 

336 

2528 

611 


135 


86 

432 


537 


1544 


387 


112 

468 


798 


1631 


424 


134 

488 


906 




725 


171 

542 


1010 






188 

571 


1339 






231 

587 


1400 






278 

613 


1418 






300 

650 


1621 






310 

705 


1747 









1769 









2313 
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4.0 COMPONENT MODELS 


4 . 1 BEARINGS 

The primary reaction of roller and ball bearings is that of a spring. In some 
designs there is a small fluid-filled annular gap between the outer race and the 
bearing carrier to allow axial shaft motion and casing growth. For purposes of 
stability and bearing load, the annular gap is generally ignored because even 
very small radial shaft motion closes the gap. Until the gap is closed, the 
bearing loads are small. 

Hydrodynamic bearings (journal bearings) do not have a direct stiffness compo- 
nent. As shown in Fig. 1 the force has off diagonal terms: e.g., forces devel- 
oped in one direction due to displacement in the other axis. 



\C- Zy/HL 3 rr /z 3 

Figure 1. Journal Bearing 


Hydrostatic bearings are somewhat similar to journal bearings, except that 
recessed pockets are designed into the nonrotating part. Fluid is fed through an 
orifice associated with each pocket. A pressure drop is also taken across the 
pocket land rotor clearance. Shaft radial motion causes an increase in pocket 
pressure, which generates a direct stiffness component. In most high-performance 
pumps, the pressure source for the bearing is the discharge pressure of the pump 
so that the stiffness is a function of speed. The lands themselves may contri- 
bute forces similar to a hydrostatic bearing. 
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4.2 CONTROLLED LEAKAGE SEALS 


Labyrinth and smooth annular seals can act as bearings contributing stiffness and 
damping, which carry forces between the casing and rotor due to relative deflec- 
tion. The grooves of a labyrinth tend to distribute pressure circumferentially, 
but the teeth operate as a series of individual straight smooth seals. 


A straight smooth seal is shown schematically in Fig. 2. The dynamic properties 
of the seal are written in coordinates of the fluid which rotate at half the 
rotor speed. These can be transferred to the nonrotating coordinates of the 
casing as shown. By changing the signs of off-diagonal terms, the equations 
represent the equation in coordinates rotating with the shaft. The diagonal 
terms are passive or damping components, while the off-diagonal terms can lead to 
instability. 


L t « 

i 



H ALF SPereb P- K a <§ + t> 0 5 + § 

too(iX>i*JAre% 

HT 0 = TTflLGLCr /€ ( !■* «<r/ 3 ) 

- trRL l O. (i + z< r/ s')/€ v ( \+<4<r/3) 
Mo- rr KL 5 (* /lZ6 ( !■+ lVj? DO 


F/Vff’O 

CoCGOiKlA-rrS 



-bo fi'/i Kc-Mct?/*)* 








-M* 4 > D fl 


fiv 

Sr) 




AJ© 6 
O «<> 



Figure 2. Smooth Straight Seal 
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4.3 TURBINE BLADE FORCES 


Turbine disk (Alford) forces are generated by changes in radial clearance of the 
turbine tips. These forces are generally written as 



fix h x 31,500 
R x h x N 


1 < fi > 2 


While this relationship is not as clearly documented as some other effects, it 
difinitely exists and due to its off-diagonal form, is a destabilizing whirl 
driver. Since all the power to the pump is delivered by the turbine, only small 
amounts of power oriented at 90 degrees to the deflection can result in large 
rotor vibration. It must be absorbed by natural damping contained in nonrotating 
elements . 
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5.0 EFFECTS OF HOUSING MOTION ON ROTOR STABILITY 


A rotor stability analysis has been performed for the six turbopumps specified in 
Table 3. These turbopumps were selected because housing models currently exist 
and, therefore, could be analyzed for both a rigid and a flexible housing assump- 
tion to determine the effect on rotor stability. Figure 3 through 10 present a 
stability map for each turbopump where the real part of the complex eigenvalue is 
plotted as a function of the rotor spin speed. Eigenvalues with a positive real 
part indicate the potential for unstable rotor motion. Stability maps for the 
second rotor modes were excluded for cases where the second rotor mode is stable. 
Observing Fig. 3 through 10, as the rotor spin speed increases, the rotor in a 
flexible housing tends to approach an unstable condition subsequent to the rotor 
in a rigid housing. Thus, the rotor with a rigid housing predicts an instability 
prior to the rotor with a flexible housing assumption. 


TABLE 3. TURBOPUMP DESIGN PARAMETER SUMMARY 


MODEL 

PRESSURE, 

PSI 

FLOW, 

GPM 

Hj 

H 

ROTOR 

WEIGHT, 

POUNDS 

CASING 

WEIGHT, 

POUNDS 

BEARING 

SPAN, 

INCHES 

MK-380 

4312, 

7093, 

25357 

28057 

81 

480 

10.89 

(104%) 

7442 

707.6 






MK-380 

4555, 

7404, 

29173 

29374 

81 

480 

10.89 

(109%) 

7861 

774.8 






MK-380 

4800, 

7240, 

29000 

26030 

112 

480 

13.40 

(REDESIGN) 

8000 

652 






MK-38F 

7000 

16360 

76560 

37335 

128.5 

649 

23.50 

MK-48F 

4560 

628 

2543 

95000 

8.25 

87.75 

7.74 

MK-49F 

4918 

418.3 

1704 

110000 

6.1 

48 

7.36 
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Figure 3. HK-380 (104%) Stability Map of First Rotor Mode 
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Figure 4. MK-380 (104%) Stability Analysis of Second Rotor Mode 
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Figure 5. MK-380 (109%) Stability Map of First Rotor Mode 
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Figure 6. MK-380 (109%) Stability Map of Second Rotor Mode 
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Figure 7. HK-380 (Redesign) Stability of First Rotor Mode 
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Figure 8. MK-38F Stability Analysis of First Rotor Mode Turbine Alford (3 









+ PLANE 
UNSTABLE 
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Figure 9. MK-49F Stability Map of First Rotor Mode Floating Ring Seal Inactive 
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Figure 10. MK-49F Stability Map of First Rotor Mode Turbine Alford p = 0.25 
Damping at Floating Ring Seal Inactive 









In order to further evaluate how housing flexibility affects rotor stability, a 
simplified rotor-housing model was developed. This beam finite element model 
consists of 10-lumped-mass locations for both the rotor and housing. A descrip- 
tion of the model is provided in Fig. 11. In order to account for the dynamic 
features significant to various turbopumps, three masses possibly simulating two 
impellers and a turbine disk were added. Generic mass and stiffness properties 
were selected and rotor/housing coupling coefficients from the HPOTP were chosen 
at random. These coefficients include the wear ring seal coupling on the first 
disk, the impeller cross-coupling coefficients on the second disk and the turbine 
interstage seal coefficients on the third disk. These typically representative 
coefficients are provided in Appendix A along with the resulting critical speeds, 
stability maps and the lowest rotor/housing mode shape. 

A stability analysis of this simple model was performed with multiple variations 
of the housing. Critical speeds and stability information was calculated again 
using a rigid housing and various flexible housing conditions. It was determined 
that the asymmetry of the supports connecting the housing to ground directly 
affects the stability threshold. The stability threshold shows a dependence on 
the ratio of the asymmetry between the stiffness in the direction of the Y and Z 
axes. Furthermore, there is an optimum value of approximately 5:1 for the ratio 
of the asymmetric stiffnesses, as shown in Fig. 12. Each of these analyses was 
executed with a housing/rotor weight ratio of 6:1 which is generically 
representative . 

Another study was conducted to examine the relationship between the housing/rotor 
weight ratios and the stability threshold. Using the simple model and varying 
only the weight of the housing, no relationship was observed between the weight 
ratios and the stability threshold as shown in Fig. 13. 

A comparison of the results of the 20-lumped-mass model using a rigid housing 
versus a flexible housing, confirms that the rigid housing model is a conserva- 
tive approach if the flexible housing meets certain prescribed conditions. Spe- 
cifically, the support stiffness asymmetry ratio must be at least 3:1 and the 
housing/rotor weight ratio should be 6:1. The stability map of Fig. 14 compares 
the rigid housing model to the flexible housing model, with a 3:1 asymmetric sup- 
port stiffness ratio. 
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SYMMETRIC IN Y AXIS 


MODEL: 

ROTOR SHAFT DIAMETER: O.D. = 3.0", I.D. = 0.0" 
MATERIAL: STEEL, E ■ 30 X 10 6 PSI 

SIMULATED LUMPED MASSES: J13 = 10 LBS 

J16 = 15 LBS 

J19 = 20 LBS 

JOINT LENGTH = 3.0" 

ROTOR LENGTH = 27.0" 

CASING 

DIAMETER: O.D. = 15", I.D. * 14" 

WEIGHT: 6/1 CASING/ROTOR WEIGHT RATIO 

K BZ = K BY = 500 » 000 LB / IN 
Ks t = 1.0 X 10 7 , 1/3 = K sy /K sz 


Figure 11. 20-Lump-Mass Turbopump Model 
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STABILITY THRESHOLD SPEED 


10 LUMPED MASS ROTOR/CASING 

SPRING STIFFNESS RATIO VS. STABILITY TfflESHOLO 20 MARCH 198*) 



ASYMMETRIC SUPPORT STIFFNESS RATIO 


Figure 12. 10-Lumped-Mass Rotor/Casing Spring 

Stiffness Ratio vs Stability Threshold 
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THRESHOLD SPEED 


10 LUMPED MASS ROTOR/CASING 

WEIGHT RATIO VS. STABILITY THRESHOLD 20 MARCH 198H 



Figure 13. 10-Lumped-Mass Rotor/Casing Weight 
Ratio vs Stability Threshold 
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Figure 14. 10-Lumped-Mass Rotor/Casing Stability Map for First Rotor Mode 





An analysis of six turbopumps demonstrates that asymmetric housing flexibility 
increases the rotor stability. A rigid housing assumption predicts an instabil- 
ity to occur prior to the same analysis with a flexible housing. Consequently, a 
rigid housing assumption is more conservative than a flexible housing model. The 
flexible housing acts as an energy absorber and dissipates some of the destabil- 
izing forces in the rotor/housing system. 

Also, a simple 20-lumped-mass turbopump model yields consistent results with the 
more complex, detailed turbopump models. That is, the rigid housing again renders 
conservative results. However, it is necessary to comply with certain prescribed 
conditions which are very typical of turbopumps. It was determined that the 
asymmetric spring stiffness ratio of the supports grounding the housing should be 
greater than or equal to 3. In addition, there is an optimum value of the asym- 
metric spring stiffness ratio of approximately 5. It is not fully understood at 
this time why the stability decreases with asymmetry greater than a 5:1 ratio. 
Another recommended condition is that the housing to rotor weight be at least 6:1 
based on this weight ratio being representative of many existing turbopumps. 
Adherence to these conditions insures that the simple 20-lumped-mass turbopump 
model will yield consistent results with the more detailed models. 

It follows that, in many cases, complex housing models need not be developed 
since a rigid housing gives comparable and more conservative results. As a 
result, time and money are conserved in the development of the rotordynamic model. 
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6.0 RSTAB ROTOR STABILITY ANALYSIS PROGRAM FOR A DESKTOP COMPUTER 


A general rotor stability analysis program used to obtain modal stability (Root- 
Locus method) of turbomachinery with rpm-dependent rotor/casing coupling elements 
(e.g., close-clearance seals, Alford forces) was revised for application to this 
study. Figures IS through 18 illustrate the principal procedures and subprograms 
of the existing code. Based on previous progress with regard to the effect of 
modal truncation on analysis accuracy in the operating speed range of interest, 
substantial reduction in program size requirements has been demonstrated to be 
possible while retaining the essential analytic capability to study the casing 
flexibility effects on rotor stability and bearing loads. 

A general rewrite of routines was necessary, and segmentation of the analysis 
procedure into three well-defined steps (Fig. 19) greatly facilitated the adapta- 
tion of the resulting program to a desktop computer. The code has been fully 
tested and verified, and has demonstrated excellent agreement with equivalent 
mainframe computer programs. 


MAIN 

PROGRAM 


I— READ TITLE CARD AND PROBLEM SIZE DATA (E.G., NUMBER OF D.O.F’S. MODES, ETC.) 



[—READ NORMALIZED EIGENVECTORS AND EIGENVALUES (EIGENVECTORS PRENORMALIZED I 


I— IMODAL 


L.READ AND NORMALIZE EIGENVECTORS AND 
NORMALIZED) 

I— READ GYROSCOPIC ADDITIONS 


EIGENVALUES (EIGENVECTORS NOT 


GYRO 


COMPUTE THE NORMALIZED GYROSCOPIC MATRIX 


Figure 15. Rotor Stability Analysis Flowchart: Pre-Processing 
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REPEAT FOR EACH RPM INCREMENT 


READ SUBCASE TITLE CARD AND NUMBER OF SUBCASE COUPLING ADDITIONS 
READ START RPM AND PUMP SPEED I NCREMENT FOR MAIN ROUTINE 
_ — READ CASING MODAL DAMPING VALUES 

— READ FUNCTION GENERATORS FOR RPM - DEPENDENT ADDITIONS 


MCDAMP 


R4 


ADDS 


ADDM 


OUT A] 


OUT B 


R3 


READ INTERGROUP COUPLING ADDITIONS 


READ INTRAGROUP GENERAL MATRIX ADDITIONS 


PRINT INTERGROUP AND INTRAGROUP ADDITION DATA 


READ D.O.F.'S FOR MODAL DISPLACEMENT CALCULATIONS 


READ RESULT PROCESSING DETAILS 


Figure 16. Rotor Stability Analysis Flowchart: Sub-Case Input 


CALCULATE THE RPM FOR CURRENT ITERATION STEP 


SCALE J— UPDATE FUNCTION GENERATORS 

1— COMBINE INTERGROUP AND INTRAGROUP ADDITIONS 


MATX 


Tj 


MAT 1 


—MAT 4 I — NORMALIZE ADDITIONS TO PARTITIONS 1 THROUGH 4 
COMBINE NORMALIZED ADDITIONS WITH THE SYSTEM STIFFNESS AND DAMPING MATRICES 
- FORM THE NEW SYSTEM DYNAMICAL MATRIX 


DYN 


EIGRF 


SOLVE FOR THE SYSTEM EIGENVALUES (IMSL ROUTINE) 


r - ANSR r~ UPDATE RESULT MEMORY ARRAYS, CALCULATE MODE SHAPES 


rn ZSORT (— SORT EIGENVALUES 


•—I SHPPLT \— PLOT MODE SHAPES 

n 


WHIRL [— COMPUTE DIRECTION OF PRECESSION 


Figure 17. Rotor Stability Analysis Flowchart: Main Routine 
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Figure 18. Rotor Stability Analysis Flowchart: Result Processing 



Figure 19. Rotor Stability Analysis Implementation on a Desktop Computer 
Program Chaining to Improve Operational Efficiency 
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Some effort was directed toward the study of a variant matrix-method approach of 
determining the effect of casing flexibility changes on the rotor stability by 
considering their effect at a fixed rpm. This approach would take advantage of 
the matrix symmetry of casing flexibility changes and is used in parallel with 
the full-range analysis program. 

Microsoft-FORTRAN Version 3.13 was used to develop the programs. The philosophy 
of program organization has been to enhance efficiency in the desktop computer 
environment and to provide clear subdivisions for chaining the programs to oper- 
ate under main memory restrictions (the computer used for development was an IBM- 
PC with 256K bytes of main memory) . 

The code has been divided into three executable programs (Fig. 20 through 22), 
which are executed sequentially using the batch procedure RUNRSTAB. The first of 
these three (PRERSTAB) entirely preprocesses the input files, including all sub- 
case iterations. It creates a binary run data file, which is then used by the 
main program ( RSTAB ) . The main program, wich solves for the coupled system 
eigenvalues and mode shapes as operating speed is varied, produces a root-locus 
plot (upper half-plane) for each subcase run. This plot is the only graphics 
produced by the main program. All other results information is written to binary 
files for use by the postprocessor program (PSTRSTAB). This last program pro- 
duces all remaining plotted output, including function generator curves, critical 
speed and stability plots and complex mode shapes. Restart capability is afforded 
by the various binary files created by each program, which can be saved for this 
purpose . 

Details of critical speed and stability plot generation are provided in Appen- 
dix B. Finalized versions of these plots, and the function generator plots, are 
shown in Fig. 23 through 25. These plots were made on the IBM-PC using the PLOT 
88 graphics library. As was previously described, the intersection of the modal 
natural frequency curve with the diagonal line representing synchronous speed 
(Fig. 23) indicates a potential critical speed. Also of interest is the inter- 
section of the modal natural frequency with the half-synchronous speed line (also 
shown in Fig. 23). This indicates the potential subsynchronous response of the 
rotor first critical mode. 
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*PRERSTAR*************************************************************** 
PROGRAM PRERSTAB 
ROTOR DYNAMICS ANALYSIS PROGRAM 
C************************************************************-*********** 


c 

C THE PRINCIPAL SUBROUTINES ARE USED IN THE FOLLOWING ORDER: 

C 

C FOR TO 1. READ PROBLEM SIZE DATA, READ AND 

C NORMALIZE GYROSCOPIC ADDITIONS 

C R1 

C MODAL 

C TRANS 

C 

C FORT 02 READ SUBCASE DATA, MATRIX DATA 

C 

C ADDS 

C ADDM 

C OUTAB 

C R3 

C 

C*********************************************************************** 

c 

C INPUT FILE NAMES DESCRIPTION 

c 

C 

C < USER— DEF I NEABLE > FORMATTED USER'S INPUT FILE, INCLUDING ANY 

C SUBCASE INPUT AND SUBSTRUCTURE MODE SHAPES 

C 

C <USER-DEF I NEABLE > FORMATTED ROTOR NORMAL MODES (IF NDT INCLUDED 

C IN THE USER'S INPUT FILE) 

C 

C <USER-DEF I NEABLE > FORMATTED CASING NORMAL MODES (IF NOT INCLUDED 

C IN THE USER'S INPUT FILE) 

C 

C OUTPUT FILE NAMES DESCRIPTION 

C 

c 

C <USER-DEF I NEABLE > FORMATTED OUTPUT LISTING. CAN BE ' PRN ' (FOR 

C IMMEDIATE PRINTING) OR ANY DISK FILE 

C 

C RUNDATA.BIN BINARY RUN DATA FILE FOR USE BY PROGRAM RSTAB 

C 

C FGPLTS.BIN BINARY FUNCTION GENERATOR DATA FOR PLOTTING BY 

C PROGRAM PSTRSTAB 

C 

C FIN. BAT FORMATTED IBM BATCH FILE TO COPY OUTPUT 

C LISTING FILES CREATED BY PROGRAMS RSTAB AND 

C PSTRSTAB (IF NOT PRINTED IMMEDIATELY) TO THE 

C USER-DEFINED OUTPUT LISTING FILE 

C 

C LOG. SAV BINARY USAGE LOG FOR PRODUCTIVITY ACCOUNTING 

C 


C*-**************-***************-*********-***********'*'**********'* ***# *•*■*** 


Figure 20. Program PRERSTAB 
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fcRSTAB-*********************************************************-********'* 

C 

C PROGRAM RSTAB 

C 

C ROTOR DYNAMICS ANALYSIS PROGRAM 

C 

C******************************************************************'***** 

c 

C THE PRINCIPAL SUBROUTINES ARE USED IN THE FOLLOWING ORDER: 

C 
C 
C 
C 
C 
C 
C 
C 

c 

C***********************************************************************! 


PLOT SET UP ROOT LOCUS PLOT 

F0RT03 SOLVE FOR EIGENVALUES VS. RPM 

MATX 

EIGRF 

ANSR 


INPUT FILE NAMES 


RUNDATA.BIN 


DESCRIPTION 


C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

C**************************************************'*'**'**-**#-****'#''*'*'* *■*■** 


! 


FIN. BAT 


OUTPUT FILE NAMES 


EIGENS.BIN 


SHAPES. BIN 


LISTS 


BINARY RUN DATA FILE CREATED BY PROGRAM 
PRERSTAB 

FORMATTED IBM BATCH FILE USED TO DETERMINE 
WHETHER TO PRINT THE OUTPUT LISTING DATA 
IMMEDIATELY, OR TO WRITE THE INFORMATION TO 
TEMPORARY FILE 'LISTS' 

DESCRIPTION 


BINARY DATA FILE CONTAINING THE EIGENVALUES 
FOR EACH RPM STEP. USED BY PROGRAM PSTRSTAB 
FOR CRITICAL SPEED AND STABILITY PLOTTING 

BINARY DATA FILE CONTAINING THE COMPLEX MODE ! 
SHAPES (IN NORMAL COORDINATES) FOR PLOTTING BY 
PROGRAM PSTRSTAB 


FORMATTED OUTPUT LISTING CREATED ONLY 
OUTPUT IS NOT PRINTED IMMEDIATELY 


IF 


Figure 21. Program RSTAB 
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♦PSTRSTAB. FOR*********************************************************** 
C 

C PROGRAM PSTRSTAB 

C 

C ROTOR DYNAMICS ANALYSIS PROGRAM 

C 


C*********************************************************************** 

c 

C THE PRINCIPAL SUBROUTINES ARE USED IN THE FOLLOWING ORDER: 

C 

C FNCPLT FUNCTION GENERATOR PLOTS 

C I 

C CRTPLT ... CRITICAL SPEED PLOTS 

C 

C STBPLT STABILITY PLOTS 

C 

C SHPPLT MODE SHAPE PLOTS 

C 

C*********************************************************************** 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


INPUT FILE NAMES DESCRIPTION 


FGPLTS.BIN BINARY FILE CREATED BY PROGRAM PRERSTAB 

CONTAINING THE FUCTION GENERATOR DATA FOR 
PLOTTING 


El GENS. BIN < BINARY FILE CREATED BY PROGRAM RSTAB 

CONTAINING THE EIGENVALUES AT EACH RPM STEP 
FOR CRITICAL SPEED AND STABILITY PLOTTING 


SHAPES. BIN BINARY FILE CREATED BY PROGRAM RSTAB 

CONTAINING THE COMPLEX MODE SHAPES FOR MODE 
SHAPE PLOTTING 


FIN. BAT FORMATTED IBM BATCH FILE USED TO DETERMINE 

WHETHER TO PRINT THE OUTPUT LISTING DATA 
IMMEDIATELY, OR TO WRITE THE INFORMATION TO 
TEMPORARY FILE ' LIST3 ' 


OUTPUT FILE NAMES DESCRIPTION 


LIST3 FORMATTED OUTPUT LISTING CREATED ONLY IF 

OUTPUT IS NOT PRINTED IMMEDIATELY 

VECT. TMP , MAPS. TMP BINARY TEMPORARY FILES CREATED BY THE PL0TT88 

LIBRARY. THESE WILL BE DELETED UPON NORMAL 
TERMINATION OF THE PL0TT8B ROUTINES 


C ********** ************************************* * **■**#■•*•***■** * ******* ■*** * 


Figure 22. Program PSTRSTAB 
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NATURAL FREQUENCE - CTCLES/MINUTE «1 0 

100. 1«B. 1 BO. 220. 2BD. 9DD. 3«D. 300. 2D. «B0. 500. 


RGTORDYNRMIC CRITICRL SPEED PLOT 


55ME HPOTP 26000 RPH REDESIGN RPR. 84 
5 R PREB SEALS, R T SEAL, OV IN 0.5, 



Figure 23. Rotor Stability Analysis Program Critical Speed Plot 
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LAMBDA REAL - 1/SEC (DAMPING F ACTOR I 


ROTORDTNRMI C 5TRBILITT PLOT 

S5ME HPOTP 26000 RPM REDESIGN RPR. 84 
S.R PREB SEALS, R T SEAL, 0 V IN 0.5, 



100. 150. 200. 250. 500. 350. 900. 950. 500. 

ROTOR SPIN 5PEED - RPM »10 2 

Figure 24. Rotor Stability Analysis Program Stability Plot 
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AMPLITUDE «10 ’ 

100. 120. 1UO. 160. 180. 200 


TEST OF FUNCTION GENERATOR PLOTTING 






A root-locus plot routine for the main program unit was developed. The plot is 
generated while the program executes and the complex eigenvalues are computed. 
The root-locus plot is a useful tool in examining turbopump dynamics. This capa- 
bility also allows good visual feedback on execution status'which is particularly 
valuable in the interactive mode of operation. 

An example of a root-locus plot generated by RSTAB is provided as Fig. 26. The 
crossover of the rotor first critical mode into the positive real half-plane at 
half-synchronous speed is a clear indication of whirl instability initiation. 

The critical damping ratios of the modes can also be graphically determined with 
the root-locus plot. The complex eigenvalue is related to the critical damping ' 
ratio by the following equation: 

Re [Aj ] = f. /Re [A.] 2 + ImlAj] 2 


where: 

A i = complex eigenvalue of the itti mode 
= critical damping ratio of the ith mode 
Re[\j], Im[A. ] = real, imaginary components of A ^ 

On a root-locus plot, lines of equal damping are straight lines extending radi- 
ally from the origin. Lines of equal damping for 1, 2.5, 5, and 10% of critical 

damping are shown on the plot for indication purposes (exact calculation of the 
damping ratio for any mode is easily made by referring to the data listed on the 
output file by RSTAB for each rpra increment). 

Appendix 8 contains background on modal modeling while Appendix C includes a 
data/output' listing of typical model results. A users manual is contained as 
Appendix D. 


RI/RD84-191 

41 








7.0 USE OF THE ROOT LOCUS IN STABILITY STUDIES 


Of the several basic methods used in control system analysis, the one that 
appears to be most adaptable is the Root Locus. Basically, it examines changes 
in the roots of the characteristic equation as changes are made in some param- 
eter. The technique is commonly used in linear systems where the components are 
described in terms of the Laplace operator, S. The characteristic equation is a 
polynomial in S and roots of a polynomial can be written as: 

S = R 4 Ij 

The real portion of the root (R) indicates exponential activity, i.e., exp (Rt) . 
Negative values of R indicate decay with time, while positive values indicate 
divergence with time. The imaginary portion of the root (I) indicate oscillatory 
activity. A root with non-zero values for R and I indicate oscillatory response 
with an exponential envelope. 

The concept of the root locus is to present the characteristic equation in such a 
form that for changes in a specific parameter, the variation in the resulting 
roots can be easily seen. A graphical approach is used so that resonant frequen- 
cies and tendencies toward instability due to parameter changes are easily seen. 

7.1 AN EXAMPLE OF THE APPROACH 

As an example, consider a characteristic equation of the form: 

2 3 4 

A + BS + CS + DS 4 S = 0 

where 

A = A x K 

B = B 4 B, K 

o 1 

C = C 4 C, K 

0 1 
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The equation can be separated into two polynomials, one of which has K as a fac- 
tor. It can then be expressed as a ratio of polynomials which are factored: 


[A 1 + B 1 S + C 1 S 2 ] 


K + 


S[B + C S + 
o o 


2 3 

DS + S ] = 0 


or 


or 


KC^S 2 + B^S/C + A 1 /C 1 ] 

S[S 3 + DS 2 + C S + B ] 
o o 


KC^tS + R + IjjHS + R^-I j] 
sts + r 2 hs + r 3 + I3 j 1 [S + R3-I33I 


= 1 Z -180 degrees 


For any value of S( = r + ij), each factor of the numerator and denominator can be 
expressed as a magnitude and angle so the left side can be expressed as a single 
magnitude and angle. For a value of S to be a root (for any value of K greater 
than 0 and less than infinity) the angle must be -180 degrees. The value of K 
can then be chosen to produce unity magnitude. A numerical example is shown in 
Fig. 27. 


The position of roots of the numerator (zeros) are shown as ”0” while the roots 
of the denominator (poles) are shown as "X." When K = 0, the roots of the 
characteristic equation are the poles. As K is increased, the roots migrate 
along loci as shown. The figure shows that for this system, the damping for the 
resonant roots is decreased and actually becomes unstable (positive real value 
for root) as K is increased. In addition, the increasing value of K results in 
an additional resonance with significant damping. The figure shows how the angle 
summation is obtained for a typical point shown as 


While this technique can be used to obtain quantitative solutions, its great 
strength is to quickly assess concepts of coupling and the effect of small 
changes in components. It is obvious, for example, that if the resonant system 
poles were initially much closer to the imaginary axis, much smaller values of K 
would be allowed if stability is to be maintained. 
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7 . 2 APPLICATION OF ROOT LOCUS METHODS TO A ROTOR 

While the normal Root Locus techniques can be applied directly to many structural 
and control system problems, a basic difference in the system equations exists in 
rotating machinery. This difference is in cross coupling between axes. It is 
this coupling that can lead to rotor instability. This type of coupling is most 
often found in gyroscopics, fluid bearings and seals, and in turbines. 


As a first step to evaluating the utility of the Root Locus we use a Jeffcott 
rotor as shown in Fig. 28. The equivalent bearing-shaft dynamics in the X-Z and 
Y _ 2 are shown as springs and dashpots to ground at both ends of the symmetrical 
rotor. The restoring forces directly applied to the central mass are typical of 
equations for a shaft seal. 

For this axisymmetrical case a coordinate transformation may be made. 

Y = -jx 
X = jY 



Ud Tic Mis o (— too TtotJ f kj •*? -it a £?■ -y 

+*.)*= p y =■ -ftc'-t ifOY 

(m? *k ) y - r r = -f *'-*'*) /+ ^-dV 

MHeze- S' a d/ett 


Figure 28. Jeffcott Rotor With Seal Cross Coupling 
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The characteristic equation of motion for either the X-Z or Y-Z plane can then be 
written as either: 


[MS 2 + (D+D*)S + (K+K' ) ] = | D*j 


or 


QDV2M 


[S 2 + 2£u>S + w 2 ] 


= -j = 1 Z -90 degrees 


The second form of the characteristic equation is similar to the standard Soot 
Locus form except that for S to be a root, an angle criterion of -90 degrees 
rather than -180 degrees must be satisfied. 


In Fig. 29, the root loci for this system are shown. The in-place resonance 
(complex poles) are assumed to have a resonant frequency of 3000 rad/sec and 10% 
of critical damping at zero speed (ft = 0). As speed is increased, it can be 
seen that use of 90 degree criterion results in roots which are no longer complex 
pairs. The root in the upper half plane (corresponding to forward precession) 
shows decreased stability with increased speed while the lower root (backward 
precession) shows increased stability. The speed at which neutral stability 

occurs is obtained from: 

«D’/2M = 300 x 6000 

It may be interesting to note that more standard rotor dynamics approaches solve 
both of the equations shown in Fig. 28 simultaneously. If we, in fact, do this 
for the simple case we obtain a characteristic equation of the form: 

2 2 S2D' 2 

[MS + ( D+D ' ) S + (K+K’)J = - (*y-) 

or 

(flD* /2M) 2 _ ’ 

2 2 2 ’ 1 
[S + 25 wS + u> ] 
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A. Root Locus of the equation is very similar to Fig. 29, except that it shows 
twice the number of loci. Half the roots are realistic, while half are nonreal- 
istic reflections of the true roots about the real axis. There is no direct 
indication as to which roots are realistic. The problem here is that the in-plane 
dynamics are squared and speed is squared. All information as to the direction 
of rotation is lost. The roots of the equation include all possible roots for 
both positive and negative rotation. For a real pump, rotation is only in one 
direction and only half the roots will be of interest. 



Figure 29. Root Locus of a Jeffcott Rotor With Seal Cross Coupling 
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An example of how this approach can be used in a realistic situation is indicated 
by the configuration shown in Fig. 30. Here a symmetrical rotor is mounted on a 
rigid casing which is supported to ground with springs and dashpots. In this 
case, a two step approach is used. Step 1 essentially determines the roots of 
the in-plane dynamics with no cross coupling. The second step determines the 
destabilizing effect of the cross coupling. Although Root Locus approaches were 
used for both steps (Fig. 31), the more common eigenvalue approach would be of 
advantage for the in-plane dynamics and the -90 degree Root Locus would be used 
for the last step to demonstrate the speed-stability aspects. 

7.3 A GENERIC HIGH-SPEED ROTOR-CASING MODEL 

The rotor model shown in Fig. 32 was used as a basis for testing the various 
analytical approaches. Basically, it is an overhung turbine configuration simi- 
lar to the SSME high pressure liquid oxygen pump. A pump with both turbine and 
impeller located inboard of the bearings can be simulated by combining their 
inertia and cross coupling coefficients as the model impeller and deleting the 
model turbine mass properties. 

As shown in Fig. 32, there are eight masses, each with inertia in translation and 
angulation. The casing is modeled as a uniform beam of total length, L, and sec- 
tion modulus, I, in bending. The casing was divided into three beams to obtain 
stiffnesses. Masses and inertias for the end masses are half the values used for 
the inboard masses. 

The rotor shaft was divided in the same way as the casing. The impeller (mass 
11, 12) and the turbine (mass 15, 16) are assumed to be disks added to the shaft 
and described by their weight and radius of gyration. Gyroscopic and seal faces 
are assumed to act only at the stations of the impeller and turbine. 

Although the model is somewhat restrictive, it has enough generality to demon- 
strate the significant interactions one would expect in a rotor design. The 
restrictions simplify solutions and minimize computer time and allow more produc- 
tive interactive computer sessions. 
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Figure 31. Root Locus for a Jeffcott Rotor With an Annular Seal 
and Casing Motion 
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Figure 32. Planar Model for an Overhung Rotor 



7.4 EXTENSION OF THE ROOT LOCUS TO A TYPICAL OVERHUNG ROTOR 

The result of a number of approaches led to a very significant simplification in 
studies of rotor stability. The key is to assume that gyroscopic stiffening and 
seal damping with its resulting cross coupled term has no significant affect on 
mode shape, and that modal damping is small so that the resonant structural gain 
is adequately defined by considering individual modes and ignoring residual 
effects from other modes. 

With these assumptions, the planar (no cross coupling) modes are computed for 
various speeds by including the speed-dependent direct stiffness at seals. Modal 
damping is assumed. The characteristic equation for an individual mode can then 
be written as: 

M[S 2 + 2fwS + u 2 ] X = l 'Pm ¥n Fn 

m 

n 

Angulation and deflection are defined in normalized form by mode shape, 4>m. As 
usual, the modal mass, M, is defined with the largest deflection being unity. 
Inputs, Fn, can be either forces or torques and the deflection, <t>n, at each 
input is required. 

The cross coupling equations shown in Fig. 32 are now included. In terms of the 
system of Fig. 30, the equation of motion becomes: 

D D 

S + [2f« + “ ^12^12 ^16*^16 + 

- <B n (4> u -4>3> 2 + B i5 (< * > i5 < * > 7 > 2 > i/2M J = 0 

For purposes of demonstration we can separate real and imaginery coefficients and 
write: 

S 2 + (R 1 - I 1 i)S + (w 2 - I 2 i> = 0 
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In real turbomachinery we find that the direct stiffness, damping and cross cou- 
pled stiffness are speed related. If values are obtained at reference speed, 
Q, the values at another speed are: 

K = K (Q/Q ) 2 
D = D («/«) 


+ D 15 <4> 15 -4> 7 ) 2 ](ft/Q)/M 

- (4> 15 -<t> 7 ) 2 ]ft (0/«) 2 /2M 

Speed-dependent stiffness is added to the zero-speed stiffness matrix prior to 
evaluation of the eigenvalue problem. 

The cross coupling and damping effects on the system roots associated with each 
mode are then determined by solving the quadratic in S where the coefficients are 
complex. Physical systems where quadratics with complex coefficients arise are 
unusual and perhaps unique in engineering to rotating machinery. 

To demonstrate the effect of these complex coefficients, we can consider two 
problems: one where 1^ = 0 and one where I^ = 0. First, where 1^ t 0, 

I^ = we have a rotating system with gyroscopic cross coupling. Assuming C 
and I^/u are small, solutions for S are: 

5 1 « -f« (l+I 1 /2u> + io (1+1 /2») 

5 2 rj -fco (l-I 1 /2u) - iw (l-I 1 /2w) 


B = Dfl/2 = D Q (0/Q) 2 /2 


Therefore , 


R ! " + < D u<^irV 

2 2 

I = (J <j> + J d> )J2 

1 ' 12*12 16*16 


I_ = 


,D ll‘*irV * D 15 
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The sign of the imaginery coefficient indicates forward ( + ) or backward (-) pre- 
cession relative to shaft rotation. The more negative the real coefficient, the 
more the damping losses. Thus, gyroscopic forces increase the frequency and 
damping of forward precession while reducing the frequency and damping of back- 
ward precession. For zero system damping (f), gyroscopic forces do not cause 
instability but simply change precession frequencies. 

The case where I =0, I/O can also be examined for small values of 

2 . 1 ^ 
l^/u . This results in: 

2 

ss -fw + I^/2u> +lo) 

2 

~ -£o) - I^/2o) -lo) 

In this case, the frequency is not affected, but the damping of forward preces- 
sion can be driven to negative values. Backward precession has increased damping. 

For a rotor-casing model with all the cross coupling terms, as speed is increased 
one would expect all the planar modal frequencies to increase due to nonlinear 
stiffening of the direct spring rate. Gyroscopic forces would then cause the 
forward precession frequency to increase slightly while the backward precession 
frequency decreases slightly. Dependent on mode shape, the damping of forward 
precession could increase due to gyroscopic forces or decrease due to seal coef- 
ficients. The effect on the backward precession component should be opposite 
that of forward precession. As speed increases one would finally expect the seal 
forces to dominate (since they vary with speed squared) and negative damping to 
prevail . 

In order to evaluate this approach, a FORTRAN program was written for the IBM-PC. 
A program, R0T0R2, was written with five subroutines. Listings for these pro 
grams are contained in Appendix E. The program also calls two scratch data files 
which contain data for the last system run with the program. They are contained 
on the disk with the executable program file. The program is run using the CRT 
display for user interrogation, while significant output is diverted to the 
printer. During interrogation, the program has been written so that no zero val- 
ues for geometric values are allowed. This simplifies logic and computer setup 
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and maximizes running speed for best interactive performance. Using an 8087 
chip, setup requires about 3 minutes while each speed iteration requires 30 sec- 
onds (10 seconds of processing- and 20 seconds of printing) for 4 modes of 
interest. 

A printed output for a session is also contained in Appendix E. The data inputs 
(which are called to the CRT screen) are indicated. After the frequencies for 
the planar modes are printed, the program asks how many modes the user would like 
to track in the speed increment loop. Usually, only those less than the poten- 
tial speed range are of interest, but all 16 modes may be tracked with an addi- 
tional penalty due to printing. 

The output shows the significance of relative motion between the case and rotor. 
Modes which show high relative displacement at the seal connection points show 
the most tendency to become unstable due to cross coupling. It is desirable to 
have such modes appear at frequencies greater than half the running speed to 
avoid degradation of inherent modal damping. 

The tendency for half speed whirl is vividly displayed using this approach by 
considering the equation for real forces. 

-F = [K + DS - i DQ/2JAX 

For a modal frequency where S = iu, all damping from the seal vanishes at fi = 
2 u and becomes negative for higher speeds. At higher speeds, negative damping 
from the seal will eventually overcome inherent modal damping and result in 
instability which will occur at a frequency of w. A slight increase in the 
whirl speed (due to gyroscopic forces) and the violence of the instability (lim- 
ited by physical nonlinearities) is observed in data as speed is increased past 
the stable point. 
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8.0 RESULTS AND OBSERVATIONS 


The results of this study are significant in several areas and exceed the planned 
scope of the work in some ways . 

The initial phase produced a summary of a' number of high speed rotors and their 
properties. While not all of the existing pumps were applicable to the type of 
study being performed, several of them were. Where analytical models were avail- 
able, properties such as component weight and system frequencies were obtained 
for reference. Results of some of the stability analyses for these units are 
included to demonstrate the stability activity with speed. In one case, upper 
modes were deleted to determine the affect on computed stability and it was found 
that severe truncation had little affect on the stability results. 

An additional step used a simplified generic model of a rotor mounted through 
bearing spring rates to ground in comparison with one where the bearing springs 
were connected to a casing which was attached with unsymmetrical springs to 
ground. Casing motion increased the speed at which instability occurred. The 
clue to increased stability in this case may be the lack of symmetry of the 
casing supports. Some investigations have indicated that unsymmetrical bearing 
spring rates attached to ground also improve the stable speed range. This aspect 
of rotor dynamics was not pursued in this study. 

In order to have a tool to allow valid extensive models of turbopumps to be run 
without step-by-step batch-processing, a number of mainframe codes were collected 
and revised for use in an IBM-PC. This allows complex pump-housing configura- 
tions to be run in a much shorter schedule and in an interactive mode. The code 
has all the accuracy and capability of the summation of the larger programs and 
is written in FORTRAN. Some sample programs and a user guide are included in 
this report. An interesting and useful output is the roots in the speed range of 
the pump plotted in the complex plane as loci of speed. The plot indicates the 
change in frequency and closed loop damping as speed is increased. Troublesome 
system resonant modes can be easily tracked. The affect on these roots of system 
changes are easily seen. 
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During the course of this study, a more simplified approach to examining turbo- 
pump stability was a goal. After a number of approaches to this part of the 
study, it was found that an extremely simple concept could be developed by assum- 
ing (1) a symmetric structural system, and (2) that including gyroscopic forces 
and seal damping and cross coupling did not significantly affect mode shapes. 
The first assumption leads to the transformations Y = -iX and F = -iF 

y * 

allows evaluation of the dynamics in one plane followed by application of cross 
coupled forces. The second assumption allows cross coupling effects on a mode to 
be evaluated by determining the roots of a quadratic with complex coefficients. 

Examining the equation for a seal with cross coupling, using the concept that Y = 
-ix the seal force becomes 

-F = [K + DS - DiQ/2 ] AX 

For a particular mode where s = iu we find that the imaginary coefficient (the 
damping force) becomes negative for speeds greater than twice the modal fre- 
quency. At some greater speed this negative damping will exceed inherent damping 
in the system, causing unstable precession at less than half speed. This only 
occurs for forward precession. The backward precession component (where S = -i&>) 
receives increased damping as speed is increased. 

Gyroscopic forces act as decreased mass in forward precession increasing the fre- 
quency and as increased mass in backward precession decreasing the frequency. 
The damping is increased for forward precession and decreased by backward preces- 
sion. Gyroscopic forces can cause instability in backward precession if the mode 
has inherent damping. A conservative mode, however, will not be destabilized by 
small gyroscopic forces. 

A generic rotor program was written in FORTRAN for the IBM-PC based on the 
simplifications. These show the trends expected although the results have not 
been checked numerically with a full model. The results indicate that modes with 
high relative deflection between the case and rotor at seals are most susceptible 
to instability if the frequency is less than half the operating shaft speed. 
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9.0 SUGGESTIONS FOR ADDITIONAL EFFORT 


Several areas of additional effort are indicated. 

First, it would be advisable to numerically compare the simplified rotor model 
with results obtained with the complete model RSTAB. 

A second area of activity would be to use the complex quadratic type solution for 
single modes, but including a more realistic geometry; i.e., nonuniform rotor 
stiffness, a more complex casing model, etc., to allow definition of more ele- 
ments with cross coupling. The method appears to be quite general for axisym- 
metric systems. 

The third area where additional effort in the Root Locus vein may be significant 
is for a casing with asymmetrical stiffness. While this complexity does not 
allow direct application of the concept Y = -iX, it may be possible to generalize 
the problem into polar coordinates in a similar manner using one mode in each of 
two planes to estimate the dynamic affect. Elliptical motion is obviously 
expected, but the approach might pay large dividends in basic knowledge. 
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NOMENCLATURE 


Damping coefficient 
Elastic modulus 
Force 

Frequency (Hz) 

Horsepower 

Turbine blade height 
-1 

Structural section modulus 
Mass moment of inertia about Y or Z axis 
p Polar moment of inertia 

Stiffness coefficient 
Length 
Mass 

(n) Mass associated with eigenvector n 

Shaft speed (RPM) 

Pressure 

Dynamic pressure 

Eigenvector 

Radius 

Laplace operator 
Time 

Velocity 

, Y, Z Coordinate system 

Weight 


Density 

Relative case-rotor deflection 
Radial clearance 

Damping factor (fraction of critical) 
Angulation about Z axis 
Eigenvalue 
y Viscosity 

p Radial distance 

a Viscous pressure drop Q 

$ Normalized modal displacement 

Shaft speed (rad/ sec) 
w Frequency (rad/ sec) 

u) Frequency associated with eigenvalue 

Q Shaft speed (rad/ sec) 
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APPENDIX A 


SUMMARY OF PHYSICAL PROPERTIES OF A NUMBER OF 
EXISTING HIGH-SPEED ROTORS 
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DAMPED CRITICAL SPEEDS AND STABILITY-10 LUMPED MRSS ROTOR DAMPED CRITICAL SPEEDS AND STABILITY-10 LUMPED MASS ROTOR 

HPOTP LINEAR ADDITIONS TO MOOEL/FLEX3BLE CASING HPOTP LINEAR AODITIONS TO MOOEL/FLEXIBLE CASING 
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APPENDIX B 


USE OF MATRIX METHODS AND SUBSTRUCTURE MODELING IN 
ROTOR STABILITY ANALYSIS 

This technique allows independently formulated component (rotor and casing) 
models, which should be reduced in degrees of freedom via a simplified modeling 
approach or a Guyan reduction, to be combined in normal coordinates into a 
coupled system representing a generic turbopump. Interaction between the sub- 
structures, as well as general stiffness and damping modifications internal to 
the substructure components, may be specified in the physical (or original) coor- 
dinate systems and incorporated with the system by proper transformation into the 
coupled system normal coordinate system. 

The coupled system is then solved for its complex eigenvalues and eigenvectors, 
which yield the required information regarding the stability margins of the sys- 
tem modes and, via back.tr ans format ion to the physical coordinate system, the 
direction of precession of the rotor degrees of freedom. By permitting the spec- 
ification of rpm-dependency of each system addition and modification, the behav- 
ior of generic turbopump interaction elements, such as bearings, seals and tur- 
bines, can be accurately modeled. The eigenvalue solution process is then 
repeated while parametrically varying the pump speed. 

The resulting information is presented in the form of critical speeds (from the 
imaginary part of the complex eigenvalue) and modal stability margins (from the 
real part of the complex eigenvalue) versus pump speed. A root locus diagram is 
made, which combines the information contained in the critical speed and stabil- 
ity plots. Backtransformation and plotting of the coupled system displacement 
mode shapes also is performed. 

The analytical method (Ref. 1) begins with normalization of the system eigenvec- 
tors with respect to the mass matrix such that: 

X T MX = M n =* I; 


Ref. 1. Timoshenko, S., D. H. Young, and W. Weaver, Jr., "Vibration Problems in 
Engineering,” Fourth Edition, John Wiley and Sons, 1974, pp 296-303. 


RI/RD84-191 


B-l 



where 


X = the eigenvector matrix (T denotes transposition), 
M = the mass matrix (in physical coordinates), 

= normal mass matrix, and 
I = the identity matrix 

It then follows by similar orthogonal transformation that: 


2 

2 

"2 

, and D„ = 

2 “1^1 

2w 2*2 



1 

e • ' 

s 

1 

N 

2 “n*n 


where : 

S N = the normal stiffness matrix, 

Dty = the normal damping matrix, 

uj = the natural frequency of the ith normal mode, and 
5^ = the modal damping ratio of the ith normal mode. 

The normalized system equations of motion may then be written as: 


In + D N fl + 


S u 


o; 


where : 

n = the normal coordinate displacement vector. 

The substructure interaction elements and general modif ications are specified in 
physical coordinates and transformed via the normalized eigenvectors into the 
system normal coordinates. For example: 


X ASX = AS , and 
N 


V = S N + 


RI/RD84-191 

B-2 



where 


AS = the stiffness addition/modification matrix in physical coordinates 

ASjj = the stiffness addition/modification matrix in system normal coor- 

dinates, and 

S N ' = the new system stiffness matrix 
The new system equations of motion are then written in state-variable form: 



which is then solved by an eigenvalue solution routine which solves the general 
nonsymmetrical dynamical matrix (1MSL routine EIGRF is being used for this 
purpose) . 


Critical speed and modal stability data are obtained from the complex eigenvalues 
computed at each rpm step in the analysis. These are computed in the form: 


co. = a. + ib. for j = 1, N; 

3 J 3 

where 

“j = j th coupled system complex eigenvalue, 
aj = real component of coj 
bj = imaginary component of coj , 
i = y -1, and 

N = total coupled system degrees of freedom in normal coordinates (number of 
casing substructure modes plus number of rotor substructure modes) 


The a. represents the exponential decay (or growth, for a. > o) of the jth 
J 3 

mode when disturbed from its equilibrium position. When the a. component is 

plotted versus pump speed, the result is a stability margin diagram. The mode is 


stable when a. is less than zero, and unstable when a. is greater than zero. 
3 3 
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The b. represents the damped natural frequency of the jth mode. When b. com- 
J J 


ponent is plotted versus pump speed, the result is a critical speed map. 


The 


intersection of the b. curve with the diagonal line indicating synchronous 
speed indicates a potential critical speed. The combination of the modal stabil- 
ity and critical speed plots is the more familiar root locus plot, where the a. 
and bj are plotted together on the imaginary plane. In this case, the pump 
speed is represented parametrically as the locus of the complex roots. 


The complex system eigenvectors can be bac kt ran s formed to the physical coordinate 
system using the original normalized substructure mode shapes: 

X’ = XZ; 


where 


X' = the casing-rotor coupled system modal displacement vector matrix in 
physical coordinates, 

X = the original normalized substructure modal matrix, and 
Z = the complex system eigenvector matrix computed for each rpm step 


The coupled system modal displacement vector is then printed/plotted to aid in 
interpretation of its significance to rotor stability and bearing loads. 

Immediate indications of strong casing-rotor interaction are available from the 
coupled system mode shapes. Modes which exhibit comparable motion of both casing 
and rotor degrees of freedom will be most significant in assessing the influence 
of casing flexibility on rotor dynamics. Large relative motion between casing 
and rotor degrees of freedom representing a bearing coupling element inicates a 
potentially significant contributor to bearing loads. 


Using vector analysis methods, the direction of rotor precession is a simple cal- 
culation involving the complex translational degrees of freedom (y, z) at a rotor 
longitudinal "station." Evaluated at any time, t (t = o is convenient), dis- 
placement and velocity vectors are defined as (Fig. B-l) : 

A A 

R = Relylj + Re[z]k; and 
R = Retyjj + Re[z]k; 
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Figure B-l. Calculation of Rotor Precession From the 
Complex Displacement Mode Shape 

where 

Ret ] = the real component of the complex argument, and 

A A 

j , k = unit vectors aligned with the y and z axes, respectively 
It then follows by vector cross-product, that the precession vector, 


p = R x R = (RefyJ Re tz] - Re[z] Refy]) 7 ! 


where 


i = the unit vector aligned with the x (longitudinal) axis 
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The modal displacement and velocity quantities are related according to: 
y = Xy, and z = Xz; 

where: 

X = the complex eigenvalue. 

Substitution of these into the vector cross-product results (after some manipula- 
tion) in: 

p = Im[X] (Re[z] Im[y] - Retyl Im[z])i; 

where 

Im[ ] = the imaginary component of the complex argument. 

This equation is easily evaluated at each rotor station. 
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APPENDIX C 


PROGRAM RSTAB OUTPUT LISTING FOR 
PROGRAM VERIFICATION TEST CASE 
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##***#*********************«-*#******#****#**#***#**#***#******#*#****###*#****** 


***** 


***** 

***** 

PROGRAM RSTAB 

***** 

***** 


***** 

**** 

IBM PC VERSION 1.0 

***** 

***** 


***** 


******************************************************************************** 


* * DAMPED CRITICAL SPEEDS AND STABILITY-10 LUMPED MASS ROTOR FLEX CASE * * 


NO. OF ROTOR DOF 

= 40 

z 

o 

• 

OF 

ROTOR MODES = 

6 

NO. OF CASING DOF 

= 40 

NO. 

OF 

CASING MODES = 

6 

ROTOR TAPE CODE 

= 1 

CASING 

TAPE CODE 

1 

NO. OF GYROSCOPIC 

ADDITIONS 

- 

20 



ACCELERATION OF GRAVITY 

as 

386. 

40 
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• * * ROTOR GROUP MODAL MATRIX 


* * * 


MODE 


MODE 


MODE 


MODE 


NO. 1 

3.813B7E+00 
. OOOOOE+OO 
•DOOOOE+OO 
1.52437E-01 
1.52731E+00 
. OOOOOE+OO 
. OOOOOE+OO 
1 . 52437E-01 


NO. 2 

. OOOOOE+OO 
3. 35656E+00 
1 . 52437E-01 
. OOOOOE+OO 
. OOOOOE+OO 
1 . 07000E+00 
1.52437E-01 
. OOOOOE+OO 


NO. 3 

1 . 67022E+00 
. OOOOOE+OO 
.OOOOOE+OO 
1.91526E-01 
1 . 20266E+00 
. OOOOOE+OO 
. OOOOOE+OO 
1 . 91526E-01 


NO. 4 

. OOOOOE+OO 
1 . 09565E+00 
1 . 91526E-01 
.OOOOOE+OO 
•OOOOOE+OO 
1 ^7724E+00 
1.^1526E-01 
. OOOOOE+OO 


. OOOOOE+OO 
. OOOOOE+OO 
— 1 . 52437E-01 
1 . 9B462E+00 
. OOOOOE+OO 
. OOOOOE+OO 
-1 . 52437E-01 
—3. 01937E-01 


3. 81387E+00 
1.52437E-01 
. OOOOOE+OO 
. OOOOOE+OO 
1 . 52731E+00 
1 . S2437E-01 
•OOOOOE+OO 
. OOOOOE+OO 


. OOOOOE+OO 
. OOOOOE+OO 
1.91526E-01 
6. 28084E-01 
. OOOOOE+OO 
. OOOOOE+OO 
1 . 91526E-01 
3. 50097E+00 


- 1 . 67022E+00 
-1.91 526E-0 1 
.OOOOOE+OO 
. OOOOOE+OO 
1 . 20266E+00 
-1.91526E-01 
. OOOOOE+OO 
.OOOOOE+OO 


. OOOOOE+OO 
— 1 . 52437E-01 
2. 44194E+00 
. OOOOOE+OO 
. OOOOOE+OO 
-1 . 52437E-01 
1 . 55375E-01 
. OOOOOE+OO 


1 . 52437E-01 
. OOOOOE+OO 
. OOOOOE+OO 
1.984&2E+00 
1 . 52437E-01 
. OOOOOE+OO 
. OOOOOE+OO 
-3.01937E-01 


. OOOOOE+OO 
1 . 91526E-01 
5.35071E-02 
. OOOOOE+OO 
•OOOOOE+OO , 
1 . 91526E-01 
2. 92639E+00 
. OOOOOE+OO 


-1.91526E-01 
. OOOOOE+OO 
. OOOOOE+OO 
6.28084E-01 
-1 . 91526E-01 
. OOOOOE+OO 
. OOOOOE+OO 
3. 50097E+00 


— 1 . 52437E-01 
2. 89925E+00 
. OOOOOE+OO 
. OOOOOE+OO 
— 1 . 52437E-01 
6. 12687E-01 
. OOOOOE+OO 
. OOOOOE+OO 


. OOOOOE+OO 
. OOOOOE+OO 
2. 44194E+00 
1 . 52437E— 01 
. OOOOOE+OO 
. OOOOOE+OO 
1.55375E-01 
1.52437E-01 


1 . 91526E-01 
—5. 21070E-01 
. OOOOOE+OO 
. OOOOOE+OO 
1 . 91526E-01 
2.35182E+00 
. OOOOOE+OO 
. OOOOOE+OO 


. OOOOOE+OO 
. OOOOOE+OO 
5.35071E-02 
— 1 . 91526E-01 
. OOOOOE+OO 
. OOOOOE+OO 
2.92639E+00 
— 1 . 91526E-01 
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3. 35656E+00 
. OOOOOE+OO 
. OOOOOE+OO 
— 1 . 52437E-01 
1 . 07000E+00 
. OOOOOE+OO 
. OOOOOE+OO 
— 1 . 52437E— 01 


. OOOOOE+OO 
2. 89925E+00 
1 . 52437E— 01 
.OOOOOE+OO 
. OOOOOE+OO 
6. 12687E-01 
1 . 52437E-01 
. OOOOOE+OO 


-1 . 09565E+00 
. OOOOOE+OO 
. OOOOOE+OO 
1.91526E-01 
1 . 77724E+00 
. OOOOOE+OO 
. OOOOOE+OO 
1.91526E-01 


. OOOOOE+OO 
-5. 21070E-01 
-1 . 91526E-01 
•OOOOOE+OO 
. OOOOOE+OO 
2. 351B2E+00 
-1 . 91526E-01 
. OOOOOE+OO 



MODE NO 


5 


-4.23564E+00 
. OOOOOE+OO 
. OOOOOE+OO 
4. 14930E-01 
2.20052E+00 
. OOOOOE+OO 
.nooooE+oo 
-5.>9026E-01 


. OOOOOE+OO 
. OOOOOE+OO 
5.50129E-01 
1 . 91305E+00 
. OOOOOE+OO 
. OOOOOE+OO 
—4. 70629E— 01 
-2.94536E+00 


. OOOOOE+OO 
6.06796E-01 
9.20328E-01 
. OOOOOE+OO 
. OOOOOE+OO 
— 2. 87072E-01 
-1. 17521E+00 
. OOOOOE+OO 


6.21006E-01 
—5. 89780E— 01 
. OOOOOE+OO 
. OOOOOE+OO 
-4. 19694E-02 
4.65316E-01 
. OOOOOE+OO 
. OOOOOE+OO 


-2. 37 190E+00 
. OOOOOE+OO 
. OOOOOE+OO 
2. 1 1594E-01 
1 . &6307E+00 
. OOOOOE+OO 
. OOOOOE+OO 
—5. 90B58E-01 


MODE NQ. 6 


. OOOOOE+OO 
—2. 37 1 90E+00 
-5. 50129E-01 
•OOOOOE+OO 
. OOOOOE+OO 
1 . 66307E+00 
4, 70629E-01 
. OOOOOE+OO 


-4. 23564E+00 
—6. 06796E— 01 
. OOOOOE+OO 
. OOOOOE+OO 
2. 20052E+00 
2. 87072E— 01 
. OOOOOE+OO 
. OOOOOE+OO 


-6.21006E-01 
. OOOOOE+OO 
. OOOOOE+OO 
1 . 91305E+00 
4. 19694E-02 
. OOOOOE+OO 
. OOOOOE+OO 
-2.94536E+00 


. OOOOOE+OO 
. OOOOOE+OO 
9. 20328E-01 
-2. 11594E-01 
•OOOOOE+OO 
. OOOOOE+OO 
-1. 17521E+00 
5.9085BE-01 


. OOOOOE+OO 
-5.897B0E-01 
-4. 1 4930E-01 
. OOOOOE+OO 
. OOOOOE+OO 
4.65316E-01 
5. 79026E-01 
. OOOOOE+OO 


* * * CASING GROUP MODAL MATRIX * * * 


MODE NO. 1 


1 . 32586E+00 
. OOOOOE+OO 
. OOOOOE+OO 
-6.06475E-02 
4. 16151E-01 
. OOOOOE+OO 
. OOOOOE+OO 
-6. 06475E-02 


. OOOOOE+OO 
. OOOOOE+OO 
— 6. 06475E-02 
5. 98093E— 01 
. OOOOOE+OO 
. OOOOOE+OO 
-6. 06475E-02 
-3. 11620E-01 


• OOOOOE+OO 
— 6. 06475E-02 
7.80036E-01 
. OOOOOE+OO 
• OOOOOE+OO 
-6. 06475E-02 
-1.29677E-01 
. OOOOOE+OO 


-6.06475E-02 
9. 6197BE— 01 
. OOOOOE+OO 
. OOOOOE+OO 
-6. 06475E-02 
5. 22656E— 02 
. OOOOOE+OO 
. OOOOOE+OO 


1. 14392E+00 
. OOOOOE+OO 
. OOOOOE+OO 
-6. 06475E-02 
2. 34208E-01 
. OOOOOE+OO 
. OOOOOE+OO 
-6. 06475E-02 


MODE NO. 2 

•loOOOE+OO 
1. 14392E+00 
6.06475E-02 
. OOOOOE+OO 
. OOOOOE+OO 
2. 34208E-0 1 
6. 06475E-02 
. OOOOOE+OO 


1 . 325B6E+00 
6. 06475E-02 
. OOOOOE+OO 
. OOOOOE+OO 
4. 16151E-01 
6. 06475E-02 
. OOOOOE+OO 
. OOOOOE+OO 


6. 06475E-02 
. OOOOOE+OO 
. OOOOOE+OO 
S. 98093E-01 
6. 06475E-02 
. OOOOOE+OO 
. OOOOOE+OO 
-3. 1 1620E-01 


. OOOOOE+OO 
. OOOOOE+OO 
7 . 80036E-01 
6. 06475E— 02 
. OOOOOE+OO 
. OOOOOE+OO 
-1 . 29677E-01 
6.06475E-02 


. OOOOOE+OO 
9.&1978E-01 
6.06475E-02 
. OOOOOE+OO 
. OOOOOE+OO 
5. 22656E-02 
6.06475E-02 
. OOOOOE+OO 
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MODE NO 


3 


. OOOOOE+OO 
-8. 14498E-02 
5.03815E-02 
. OOOOOE+OO 
. OOOOOE+OO 
-8. 37173E-01 
S.O3815E-02 
. OOOOOE+OO 


6. 96948E— 02 
5. 03815E-02 
. OOOOOE+OO 
. OOOOOE+OO 
-6.86028E-01 
5.03815E-02 
. OOOOOE+OO 
. OOOOOE+OO 


5.03815E-02 
. OOOOOE+OO 
. OOOOOE+OO 
-5. 34883E-01 
5.03815E-02 
. OOOOOE+OO 
- OOOOOE+OO 
— 1 . 29061E+00 


. OOOOOE+OO 
. OOOOOE+OO 
-3.83739E-01 
5. 03815E-02 
. OOOOOE+OO 
. OOOOOE+OO 
-1. 13946E+00 
5.03815E-02 


MODE NO. 4 


— 6. 96948E-02 
. OOOOOE+OO 
. OOOOOE+OO 
5. 03815E-02 
A.8&028E-01 
. OOOOOE+OO 
. OOOOOE+OO 
5. 03815E-02 


. OOOOOE+OO 
. OOOOOE+OO 
5.03815E-02 
5.34883E-01 
. OOOOOE+OO 
. OOOOOE+OO 
5.03815E-02 
1 . 2906 1E+00 


. OOOOOE+OO 

5.03B15E-02 
3. 83739E-01 
. OOOOOE+OO 
.OOOOOE+OO 
5.03B15E-02 
1. 13946E+00 
. OOOOOE+OO 


5.03815E-02 
2. 32594E-01 
. OOOOOE+OO 
. OOOOOE+OO 
5. 03815E-02 
9 . B8317E-01 
. OOOOOE+OO 
. OOOOOE+OO 


MODE NO- 5 


. OOOOOE+OO 
-4.99923E-01 
-8 . 03535E-02 
. OOOOOE+OO 
. OOOOOE+OO 
5. 73384E-01 
8. 03535E-02 
. OOOOOE+OO 


-1 . 00952E+00 
-9. 70934E-02 
. OOOOOE+OO 
. OOOOOE+OO 
B.58514E-01 
5. 33387E-02 
. OOOOOE+OO 
. OOOOOE+OO 


-1 . 03B40E-01 
. OOOOOE+OO 
. OOOOOE+OO 
B.58514E-01 
1 . 87125E-02 
. OOOOOE+OO 
. OOOOOE+OO 
— 1 . 00952E+00 


. OOOOOE+OO 
. OOOOOE+OO 
5.73384E-01 
-1 . B7125E-02 
. OOOOOE+OO 
. OOOOOE+OO 
-4 . 99923E-0 1 
1 . 03B40E-01 


MODE NO. 6 


1 . 00952E+00 
. OOOOOE+OO 
. OOOOOE+OO 
-5. 33387E-02 
-8.58514E-01 
. OOOOOE+OO 
. OOOOOE+OO 
9. 70934E-02 


. OOOOOE+OO 
. OOOOOE+OO 
-8. 03535E-02 
-8. 5B514E-01 
. OOOOOE+OO 
. OOOOOE+OO 
8. 03535E-02 
1 . 00952E+00 


. OOOOOE+OO 
—9. 70934E-02 
-5. 73384E-01 
.OOOOOE+OO 
. OOOOOE+OO 
5.333B7E-02 
4. 99923E-01 
.OOOOOE+OO 


-1 . 03B40E-01 
-7. 75425E-02 
. OOOOOE+OO 
. OOOOOE+OO 
1 . 87125E-02 
-7 . 75426E-02 
. OOOOOE+OO 
. OOOOOE+OO 
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. OOOOOE+OO 
-2. 32594E-01 
5.03815E-02 
. OOOOOE+OO 
. OOOOOE+OO 
-9. 88317E-01 
5. 03815E-02 
. OOOOOE+OO 


8. 1 4498E-02 
. OOOOOE+OO 
. OOOOOE+OO 
5. 03815E-02 
8. 37173E-01 
. OOOOOE+OO 
. OOOOOE+OO 
5. 038 15E-02 


. OOOOOE+OO 
7. 75425E-02 
—5. 333B7E-02 
. OOOOOE+OO 
. OOOOOE+OO 
7.7542&E-02 
9. 70934E-02 
. OOOOOE+OO 


4. 99923E-01 
. OOOOOE+OO 
. OOOOOE+OO 
— 1 . 87125E-02 
—5 . 73384E-0 1 
. OOOOOE+OO 
. OOOOOE+OO 
1 . 03840E-01 
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* * * ROTOR GROUP NATURAL FREQUENCIES - WR * * * 


RAD/SEC 

2.94585E-03 

2.94585E-03 

3.64288E-03 

3.64288E-03 

3.09484E+03 

3.09484E+03 


HERTZ 

4. 68B47E-04 
4.68B47E-04 
5.79782E-04 
5. 79782E-04 
4. 92559E+02 
4. 92559E+02 


* * * CASING GROUP NATURAL FREQUENCIES - WC * * * 


RAD/SEC 

2. 53371E-03 
2. 53371 E— 03 
3. 13376E-03 
3. 13376E-03 
7.67335E+03 
7 . 67335E+03 


HERTZ 

4. 03252E-04 
4. 03252E-O4 
4. 98733E-04 
4. 9B753E-04 
1 . 22125E+03 
1.22125E+03 


* * * GYROSCOPIC MATRIX ELEMENTS * * * 


ROM 

COL 

VALUE 

3 

4 

-3.57800000E+00 

4 

3 

3. 57800000E+0Q 

7 

8 

-7. 1 5500000E+00 

8 

7 

7. 1 5500000E+00 

11 

12 

-B.27000000E+01 

12 

11 

8.27000000E+01 

15 

16 

-7. 15500000E+00 

16 

15 

7. 15500000E+00 

19 

20 

-7. 15500000E+00 

20 

19 

7. 15500000E+00 

23 

24 

- 1 . 60300000E+02 

24 

23 

1 . 60300000E+02 

27 

28 

-7. 1 5500000E+00 

28 

27 

7. 15500000E+00 

31 

32 

-7. 1 5500000E+00 

32 

31 

7. 15500000E+00 

35 

36 

—2. 64400000E+02 

36 

35 

2. 64400000E+02 

39 

40 

-3. 57800000E+00 

40 

39 

3. 57800000E+00 
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* * * SUBCASE INPUT * * # 

DAMPED CRITICAL SPEEDS AND STABILITY-10 LUMPED MASS ROTOR FLEX CASE 
HPOTP LINEAR ADDITIONS TO MODEL/FLEXIBLE CASING 

NUMgER OF GENERAL MATRIX ADDITIONS (STIFFNESS AND DAMPING) 

PARTITION 1 = O PARTITION 2 = 0 

PARTITION 3 = O PARTITION 4 = 4 

NUMBER OF INTERGROUP ADDITIONS = 5 

NUMBER OF FUNCTION GENERATORS = 10 

MODE SHAPE PRINTING CODE = 1 NEXT CASE CODE = 4 

RPM1 = 5. OOOOOE+03 DRPM = .OOOOOE+OO IP = 1 


* * * CASING GROUP MODAL DAMPING FACTORS * * * 


1 . 00000E-02 
1 . 00000E-02 
1 . 00000E-02 
1 . OOOOOE— 02 
1 . OOOOOE-02 
1 . OOOOOE— 02 
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* * * FUNCTION GENERATOR DATA * * * 


FUNCTION NO. 1 UNITY* 


RPM 

1 . 0000E+03 
9. OOOOE+04 


FUNCTION NO. 2 PBP RWR DIRECT STIFFNESS* 

RPM 

1 . OOOOE+03 
1 . 0000E+04 
2. 0000E+04 
2. 5000E+04 
3. 0000E+04 
3. 5000E+04 
4. 0000E+04 
4. 5000E+04 


FUNCTION NO. 3 PBP RWR C-CSTIFFNESS* 

RPM 

I . 0000E+03 
1 . 0000E+04 
2. 0000E+04 
2.5000E+04 
3. 0000E+04 
3. 5000E+04 
4. 0000E+04 
4. 5000E+04 


FUNCTION NO. 4 PBP RWR DIRECT DAMPING* 


RPM 

I. 0000E+03 
1 . OOOOE+04 
3. 0000E+04 
4. 5000E+04 


FUNCTION NO. 5 M IMP DIRECT STIFFNESS* 

RPM 

1 . OOOOE+03 
5. 0000E+03 
1 . OOOOE+04 
1 . 5000E+04 
2. 0000E+04 
2. 5000E+04 
3. 0000E+04 
3.5000E+04 
4. 0000E+04 
4.5000E+04 


VALUE 
1 . OOOOE+OO 
l.OOOOE+OO 


VALUE 
. OOOOE+OO 
1 . 0000E+05 
4. 2000E+05 
6.5000E+05 
9. 3000E+05 
1 . 2400E+06 
I . 6000E+06 
2. 1 OOOE+OA 


VALUE 
. OOOOE+OO 
1. 4900E+04 
5. B000E+O4 
8. 6000E+04 
1 . 2000E+05 
1 . 5900E+05 
2. 0400E+05 
2. 5B00E+05 


VALUE 
. OOOOE+OO 
6. 33B0E+01 
2. 1000E+02 
3. 2I00E+02 


VALUE 
8. 8900E+01 
2. 2222E+03 
8. 8889E+03 
2. 0000E+04 
3. 5556E+04 
5.5556E+04 
8. 0000E+04 
1 . 0889E+05 
1 . 4222E+05 
1 . 8000E+05 
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FUNCTION NO. 6 M IMP C-C STIFFNESS* 



RPM . 

VALUE 


1 . 0000E+03 

4. OOOOE+Ol 


5. 0000E+03 

1 . 0000E+03 


1. 0000E+04 

4. 0000E+03 


1 . 5000E+04 

9. 0000E+03 


2. 0000E+04 

1 . 6000E+04 


2. 5000E+04 

2. 5000E+04 


3. OOOOE+04 

3.6000E+04 


3. 5000E+04 

4 . 9000E+04 


4. 0000E+04 

6.4000E+04 


4. 5000E+04 

8. 1 OOOE+04 


FUNCTION NO. 

7 

M IMP DIRECT DAMPING* 




RPM 

VALUE 



1 . 0000E+03 

1 . OOOOE-Ol 



5. OOOOE+03 

5. OOOOE-Ol 



1 . 0000E+04 

1 . OOOOE+OO 



1 . 5000E+04 

1 . 5000E+00 



2.0000E+04 

2. OOOOE+OO 



2. 5000E+04 

2. 5000E+00 



3. 000GE+04 

3. OOOOE+OO 



3.5000E+04 

3. 5000E+00 



4. 0000E+04 

4. OOOOE+OO 



4. 5000E+04 

4. 5000E+00 


FUNCTION NO. 

8 

TURBINE DIRECT STIFFNESS* 




RPM 

VALUE 



1 . 0000E+03 

. OOOOE+OO 



5. 0000E+03 

2. 1 800E+03 



1 . 0000E+04 

8. 7 I00E+03 



1 . 5000E+04 

1 . 9A00E+04 



2. 0000E+04 

3. 4850E+04 



2. 5000E+04 

4. 7500E+04 



3. 0000E+04 

6. 8300E+04 



3. 5000E+04 

9. 5500E+04 



4. 0000E+04 

1 . 2650E+05 



4. 5000E+04 

1 . 6100E+05 


FUNCTION NO. 

9 

TURBINE C-C STIFFNESS* 




RPM 

VALUE 

t 


I . 0000E+03 

.OOOOE+OO 



5. 0000E+03 

7. 1000E+02 



1 . 0000E+04 

1 . 9300E+03 



1 . 5000E+04 

3. 9700E+03 



2. OOOOE+04 

7. 8800E+03 



2. 5000E+04 

1 . 3250E+04 



3. OOOOE+04 

2. 1 100E+04 



3. 5000E+04 

3. 0950E+04 



4. 0000E+04 

4. 6000E+04 



4. 5000E+04 

6.4300E+04 
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FUNCTION NO. 10 TURBINE DIRECT DAMPING* 

RPM 

VALUE 

1 . 0000E+03 

. OOOOE+OO 

5. OOOOE+03 

9. OOOOE-Ol 

1 . OOOOE+04 

2. 3000E+00 

.1 . 5000E+04 

4. 2000E+00 

2. 0000E+04 

6. 1000E+00 

2.5000E+04 

8.8000E+00 

3. 0000E+04 

1 . 2800E+01 

3. 5000E+04 

1.7300E+01 

4. 0000E+04 

2. 3000E+01 

4. 5000E+04 

2.9600E+01 

******** MATRIX ADDITIONS 

* * * * 


* * * INTERGROUP ADDITIONS * * * 


UPPER LEFT PARTITION 


NO. 

ROW 

COL. 

STIFFNESS 

FUNC. 

DAMPING 

FUNC. 

1 

1 

1 

5. 00000E+05 

1 

2. 50000E+00 

1 

2 

2 

2 

5. OOOOOE+OS 

1 

2. 50000E+00 

1 

3 

1 

2 

. OOOOOE+OO 

1 

. OOOOOE+OO 

1 

4 

2 

1 

. OOOOOE+OO 

1 

. OOOOOE+OO 

1 

S 

37 

37 

5.00000E+05 

1 

2. 50000E+00 

1 

6 

38 

38 

5. 00000E+05 

1 

2. 50000E+00 

1 

7 

37 

38 

. OOOOOE+OO 

1 

. OOOOOE+OO 

1 

8 

38 

37 

. OOOOOE+OO 

1 

. OOOOOE+OO 

1 

9 

9 

9 

1 . OOOOOE+OO 

2 

1 . OOOOOE+OO 

4 

10 

10 

10 

1. OOOOOE+OO 

2 

1 . OOOOOE+OO 

4 

11 

9 

10 

1. OOOOOE+OO 

3 

. OOOOOE+OO 

1 

12 

10 

9 

-1. OOOOOE+OO 

3 

. OOOOOE+OO 

1 


21 

21 

-1. OOOOOE+OO 

5 

1 . 00000E+«0 

7 

14 

22 

22 

-1. OOOOOE+OO 

5 

1 . OOOOOE+OO 

7 

15 

21 

22 

1 . OOOOOE+OO 

6 

. OOOOOE+OO 

1 

16 

22 

21 

-1. OOOOOE+OO 

6 

. OOOOOE+OO 

1 

17 

33 

33 

1. OOOOOE+OO 

8 

1 . OOOOOE+OO 

10 

18 

34 

34 

1. OOOOOE+OO 

8 

1 . OOOOOE+OO 

10 

19 

33 

34 

l. OOOOOE+OO 

9 

. OOOOOE+OO 

1 

20 

34 

33 

-1. OOOOOE+OO 

9 

. OOOOOE+OO 

1 
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UPPER RIGHT PARTITION 


NO. 

ROW 

COL. 

STIFFNESS 

FUNC. 

DAMPING 

FUNC. 

1 

1 

1 

-5. 00000E+05 

1 

-2. 50000E+00 

1 

2 

2 

2 

-5. 00000E+05 

1 

—2. 50000E+00 

1 

3 

1 

2 

. OOOOOE+OO 

1 

. OOOOOE+OO 

1 

:■ 4 

2 

1 

. OOOOOE+OO 

1 

. OOOOOE+OO 

1 

5 

37 

37 

-5. OOOO0E+O5 

1 

-2. 50000E+00 

1 

6 

38 

38 

-5. 00000E+05 

1 

-2. 50000E+00 

1 

7 

37 

38 

. OOOOOE+OO 

1 

. OOOOOE+OO 

1 

8 

38 

37 

. OOOOOE+OO 

1 

. OOOOOE+OO 

1 

9 

9 

9 

-1. OOOOOE+OO 

2 

-1. OOOOOE+OO 

4 

10 

10 

10 

-1. OOOOOE+OO 

2 

-1. OOOOOE+OO 

4 

11 

9 

io 

-1. OOOOOE+OO 

3 

. OOOOOE+OO 

i 

12 

10 

9 

1 . OOOOOE+OO 

3 

. OOOOOE+OO 

l 

13 

21 

21 

1 . OOOOOE+OO 

5 

-1. OOOOOE+OO 

7 

14 

22 

22 

1 . OOOOOE+OO 

5 

-1. OOOOOE+OO 

7 

15 

21 

22 

-1. OOOOOE+OO 

6 

. OOOOOE+OO 

1 

16 

22 

21 

1 . OOOOOE+OO 

6 

. OOOOOE+OO 

1 

17 

33 

33 

-1. OOOOOE+OO 

8 

-1. OOOOOE+OO 

10 

18 

34 

34 

-1. OOOOOE+OO 

8 

-1. OOOOOE+OO 

10 

19 

33 

34 

-1 . OOOOOE+OO 

9 

. OOOOOE+OO 

1 

20 

34 

33 

1. OOOOOE+OO 

9 

. OOOOOE+OO 

1 



LOWER 

LEFT PARTITION 




NO. 

ROW 

COL. 

STIFFNESS 

FUNC. 

DAMPING 

FUNC. 

1 

1 

1 

-5. 00000E+05 

1 

— 2. 50000E+00 

1 

2 

2 

2 

-5. 00000E+05 

1 

—2. 50000E+00 

1 

3 

1 

2 

. OOOOOE+OO 

1 

. OOOOOE+OO 

1 

4 

2 

1 

. OOOOOE+OO 

1 

. OOOOOE+OO 

1 

5 

37 

37 

-5. 00000E+05 

1 

-2.50000E+00 

1 

6 

38 

38 

-5.00000E+05 

1 

-2. 50000E+00 

1 

7 

37 

38 

•OOOOOE+OO 

1 

. OOOOOE+OO 

1 

8 

38 

37 

.OOOOOE+OO 

1 

. OOOOOE+OO 

1 

9 

9 

9 

-1. OOOOOE+OO 

2 

-1 .OOOOOE+OO 

4 

10 

10 

10 

-1. OOOOOE+OO 

2 

-1. OOOOOE+OO 

4 

11 

9 

10 

-1. OOOOOE+OO 

3 

. OOOOOE+OO 

1 

12 

10 

9 

1 . OOOOOE+OO 

3 

. OOOOOE+OO 

1 

13 

21 

21 

1. OOOOOE+OO 

5 

-1. OOOOOE+OO 

7 

* 14 

22 

22 

1. OOOOOE+OO 

5 

-1. OOOOOE+OO 

7 

* 15 

21 

22 

-1. OOOOOE+OO 

6 

. OOOOOE+OO 

1 

16 

22 

21 

1 . OOOOOE+OO 

6 

.OOOOOE+OO 

1 

17 

33 

33 

-1. OOOOOE+OO 

8 

-1. OOOOOE+OO 

10 

18 

34 

34 

-1. OOOOOE+OO 

8 

-1. OOOOOE+OO 

10 

19 

33 

34 

-1. OOOOOE+OO 

9 

. OOOOOE+OO 

1 

20 

34 

33 

1 . OOOOOE+OO 

9 

. OOOOOE+OO 

1 


RI/RD84-191 

C-ll 



LOWER RIGHT PARTITION 


NO. 

ROW 

COL. 

STIFFNESS 

FUNC. 

DAMPING 

FUNC. 

1 

1 

1 

5. 00000E+05 

1 

2. 50000E+00 

1 

2 

2 

2 

5. OOOOOE+05 

1 

2. 50000E+00 

1 

3 

1 

2 

. OOOOOE+OO 

1 

. OOOOOE+OO 

1 

4 

2 

1 

. OOOOOE+OO 

1 

. OOOOOE+OO 

1 

5 

37 

37 

5.00000E+05 

1 

2. 50000E+00 

1 

6 

38 

38 

5.00000E+05 

1 

2. 50000E+00 

1 

7 

37 

38 

•OOOOOE+OO 

1 

. OOOOOE+OO 

1 

e 

38 

37 

. OOOOOE+OO 

1 

. OOOOOE+OO 

1 

9 

9 

9 

1. OOOOOE+OO 

2 

1 . OOOOOE+OO 

4 

10 

10 

10 

1, OOOOOE+OO 

2 

l . OOOOOE+OO 

. 4 

li 

9 

10 

1. OOOOOE+OO 

3 

. OOOOOE+OO 

1 

.12 

10 

9 

-1. OOOOOE+OO 

3 

. OOOOOE+OO 

1 

13 

21 

21 

-1. OOOOOE+OO 

5 

1 . OOOOOE+OO 

7 

14 

22 

22 

-1 . OOOOOE+OO 

5 

1 . OOOOOE+OO 

7 

15 

21 

22 

1. OOOOOE+OO 

6 

. OOOOOE+OO 

1 

16 

22 

21 

-1. OOOOOE+OO 

6 

. OOOOOE+OO 

1 

17 

33 

33 

1 . OOOOOE+OO 

8 

1 . OOOOOE+OO 

10 

18 

34 

34 

1. OOOOOE+OO 

8 

1 . OOOOOE+OO 

10 

19 

33 

34 

1 . OOOOOE+OO 

9 

. OOOOOE+OO 

1 

20 

34 

33 

-1. OOOOOE+OO 

9 

. OOOOOE+OO 

1 


* * 

* GENERAL ADDITIONS * * * 





LOWER 

RIGHT PARTITION 




NO. 

ROW 

COL. 

STIFFNESS 

FUNC. 

DAMPING 

FUNC. 

1 

5 

5 

1 • 00000E+06 

1 

. OOOOOE+OO 

1 

2 

6 

6 

1 . OOOOOE+07 

1 

. OOOOOE+OO 

1 

3 

33 

33 

1 . 00000E+06 

1 

. OOOOOE+OO 

1 

4 

34 

34 

1 . 00000E+07 

1 

. OOOOOE+OO 

1 
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ROTOR DISPLACEMENTS WILL BE COMPUTED AT THE FOLLOW I NS DESREES OF FREEDOM 


1 2 5 6 9 10 13 14 17 18 21 22 

25 2 b 29 30 33 34 37 38 


CASING DISPLACEMENTS WILL BE COMPUTED AT THE FOLLOWING DEGREES OF FREEDOM 

1 2 5 b 9 10 13 14 17 18 21 22 

25 26 29 30 33 34 37 38 


* * PRINT AND PLOT CONTROL OPTIONS * # 

FHIGH ■ 5. OOOOOE+04 CPM FLOW = 1.00000E+04 CPM 

XB = 5.00000E+03 XR = 6.00000E+04 

YB = 5.00000E+03 YT = 6.00000E+04 

DX = 5. 00000E+03 DY = 5.00000E+03 

IPLTF = 0 IPRT2 =0 

XB1 * 5 . 00000E+03 XR1 * 6. O0000E+04 

YB1 ' - -2.00000E+02 YT1 - 2.00000E+02 

DX 1 = 5. 00000E+03 DY1 - 5.00000E+01 

STABILITY PLOT CHARACTERS 1234 

IPRT3 = 0 

MODE SHAPES PLOTTED FOR 2 SPEED CASES AT FOLLOWING SPEEDS 
10000. 30000. 

MODE SHAPE PLOTTING DATA 

STATIONS* 10 IFLG* 3 IFLG1- 3 THETA* 210.0 SCALE* .050 

STATION LOCATIONS 

.000 

15.000 


3.000 6.000 9.000 12.000 

18.000 21.000 24.000 27.000 
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APPENDIX D 


PROGRAM RSTAB USER'S GUIDE 


SUMMARY 

The development of asn IBM PC version of the CDC program DAMCISS is complete. 
This work was done to support NAS8-34964, titled "Effects of Case Flexibility on 
Bearing Loads and Rotor Stability Study," and was also designed to be of general 
use in the analysis of current rotordynamic models and in future studies. Con- 
siderable modification and revision to the program structure and subroutines was 
necessary to accomplish this. The code has been tested and verified using three 
independent models and has demonstrated very good agreement with the CDC equiva- 
lent program. 

This Appendix discusses the analytical methods used, which include substructure 
modeling, general stiffness and damping modifications and complex eigenvalue 
solution. Discussion of program implementation on the IBM PC computer includes 
memory size, execution speed and disk storage considerations. A main memory 
capacity of 256K bytes, an output buffer spooling program and temporary disk* 
storage space are essential to efficient program use for large models (typical of 
current SSME turbopump analyses). However, small models used for generic study 
purposes may be run efficiently under more restricted configurations. Redimen- 
sioning of the program can be done by the experienced user, thus enabling adapta- 
tion of the code to various model sizes and computer configurations. A guide has 
been provided for this, which relies on the DAMCISS User's Guide for definition 
of the variables involved. 

Program execution, using the batch file RUNRSTAB, is described. Some familiarity 
with the IBM operating system will be needed to vary from the rigid procedure 
provided, but it should be useful in getting anyone started. An example run ses- 
sion has been provided to assist in this. 
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GENERAL PROGRAM DESCRIPTION 


RSTAB allows independently formulated component (rotor and casing) models to be 
combined using normalized modes into a coupled system. Interaction forces 
between the substructures, as well as general stiffness and damping modifications 
internal to the substructures, are specified in the physical coordinate system 
and transformed by the program into the normalized coordinate system. The 
coupled system is then solved for its complex eigenvalues and eigenvectors, which 
yield the required information regarding the critical speeds and stability mar- 
gins of the system. Via backtransformation to the physical coordinate system, 
the resulting mode shapes and the direction of rotor precession are computed. By 
permitting the specification of RPM-dependency of each system addition and modi- 
fication, the behavior of such turbopump interaction elements as bearings, seals 
and turbines, can be accurately modeled. The eignevalue solution process is then 
repeated while parametrically varying the pump speed. 

A root-locus plot is produced as the program executes. This plot combines the 
information contained in the critical speed and stability plots and also provides 
visual feedback on the program's execution status. The critical damping ratio of 
each mode can be graphically determined from the root-locus plot. Lines of equal 
damping are straight lines extending radially from the plot origin. Lines for 1, 
2.5, 5 and 10% of critical damping are indicated on each plot. 

Microsoft FORTRAN Version 3.13 was used to develop the programs. The philosophy 
of program organization has been to enhance efficiency in the desktop computer 
environment and to provide clear subdivisions for chaining the programs to oper- 
ate under main memory restrictions (the computer used for development was an IBM 
PC with 256K bytes of main memory) . 

The code has been divided into three executable programs, which are executed 
sequentially using the batch procedure RUNRSTAB. The first of these three 
(PRERSTAB) entirely pre-processes the input files, including all subcase itera- 
tions. It creates a binary run data file, which is then used by the main program 
(RSTAB). The main program, which solves for the coupled system eigenvalues and 
mode shapes as operating speed is varied, produces a root-locus plot (upper 
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half-plane) for each subcase run. This plot is the only graphics produced by the 
main program. All other results information is written to binary files for use 
by the post-processor program (PSTRSTAB). This last program produced all remain- 
ing plotted output, including function generator curves, critical speed and sta- 
bility plots and complex mode shapes. Restart capability is afforded by the var- 
ious binary files created by each program, which can be saved for this purpose. 

All plotted output is directed to a dot-matrix printer, which must be present for 
execution of RSTAB (for the root-locus plot) and PSTRSTAB (if any other plots are 
requested). The output listing, however, may be printed as the programs execute 
(immediate printing), or may be directed to disk storage. 

The amount of main memory required to execute the programs is determined by the 
size of the main program (RSTAB), which is the largest of the three. The size of 
this program as currently dimensioned is 198,544 bytes. This includes plotting 
and CRT control functions which are not mandatory for successful execution of the 
three programs if root-locus plots are not desired. A non-plotting version of 
the main program (RSTABNP) has also been provided, and requires only 177,120 
bytes. Altering the dimensioning of variable arrays to accommodate problems of 
different sizes would affect the program size. Table C.l details the dimension- 
ing of Version 1.0 of RSTAB. 

/ 

RESTAB REDIMENSIONING 

Array redimensioning is the most likely modification to be necessary on a routine 
basis. Three source files will require modification for redimensioning. These 
are: PRERSTAB . FOR , RSTAB. FOR, and PSTRSTAB . FOR. Note that these need not be 
dimensioned identically. The only requirement is that each be dimensioned to at 
least the sizes required for the problem to be analyzed (such that the user's 
input does not exceed the capacity of any one program). The user must be aware 
that any other software modification may adversely affect the program operation 
and validity. A guide is provided for the experienced user to redimension the 
program. 
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After recompiling the modified source codes, the executable files can be 
re-linked by following the linking guides also provided. The object modules 
TKNULL , EPNULL and NULE6 are PLOT88 and FORTRAN ’’null” object modules (to elimi- 
nate unnecessary code) and should be used when linking the main program (RSTAB) . 

PROGRAM USAGE 

The IBM PC program XTALK should be used to transmit input data files from the CDC 
computer. With XTALK in "Capture” mode, any formatted files can be transmitted 
by using the CDC NOS command "COPY, file" (where "file" is the local name of the 
CDC formatted file). For transmitting binary mode shape files created by the 
finite-element analysis program V9568, the following procedure is provided: 

GET, V956IBM/UN = YQA314 
V956IBM 

This procedure will invoke a translator program, which will read the binary file 
and transmit it formatted for use by program PRERSTAB. All leading and trailing 
lines in input files (including CDC JCL) will be ignored by RSTAB; therefore, no 
special editing of the imput files will be necessary. 

An IBM batch file, RUNRSTAB, has been provided to facilitate the execution of the 
three programs. The user should execute this batch file from a directory with 
enough space for program output and temporary files (this requirement will vary 
considerably with problem size and plot requests). RUNRSTAB will pause with mes- 
sages to direct the interchange of the diskettes containing the executable 
files. Provided with the executable files is a program usage log (SAV.LOG) for 
productivity accounting. This file is mandatory for program execution. An 
example run session is included. 
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Execution speed is greatly enhanced if the output listing is directed to disk 
storage, or if a spooler program is used to establish an output buffer of at 
least 30 Kbytes. For this reason it is recommended to execute under the DOS 1.1 
operating system using Superspool, and have at least 256 Kbytes of main memory. 
With this amount of memory, 26 Kbytes of output buffer can be allocated, leaving 
enough memory for execution of RSTAB. 
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RPM STEPS FOR MODE SHAPE PRINTING /PLOTTING 



1. PROGRAM RSTAB RE-DIMENSIONING GUIDE 


In order to run problems requiring larger array dimensions than provided in 
Version 1.0 of RSTAB, or to run smaller problems using less main memory, it 
will be necessary to re-dimension the program. Only the three principal 
source files PRERSTAB. FOR, RSTAB. FOR, (or RSTABNP.FOR for non-plotting 
version) and PSTRSTAB.FOR will need any modification for this. It is not 
necessary to dimension these identically, provided that each is dimensioned 
large enough to accommodate the problem at hand. 

For definition of variables not defined in this guide, refer to the DAMCISS 
User's Guide. . These variables are identified by italics type. 
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I. Program File PRERSTAB.FOR 


ARRAYS 


TYPE 

NAME 

DIMENSION(S) 

INTEGER*2 

JFUN 

(LSJ.2) 

INTEGERS 

-tFFPMpT 

(NFGEN) 

INTEGER*2 

NRC 

(LSA.2.4) 

INTEGER*2 

I ROT 

( NIROT ) 

INTEGER*2 

I CASE 

[NCASE) 

REALM 

AC 

[ncdof, ncmod) 

REALM 

AR 

{NRDOFj nrmod) 

REALM 

WC, ZETAC 

[NCMOD) 

REAL*4 

WR 

[NRMOD) 

REALM 

DMP.S 

(LSA,4) 

REALM 

SPEED, FG 

(LPT, NFGEN) 

REAL*4 

G 

[nrdof, nrdof) 

REALM 

ZRPM 

[krpm) 

REALM 

X 

[NSTAT) 

REAL *8 

GBAR 

[NRMOD, NRMOD) 

REAL*8 

WK 

[NRDOF) 

VARIABLES IN 

DATA STATEMENTS (ALL INTEGER*2) 


LCMOD 

= 

NCMOD 

LRMOD 

= 

NRMOD 

LRDOF 

= 

NRDOF 

LCDOF 

= 

NCDOF 

LSA 

= 

4 *NSL + MAX0 [NSAlj NSA2, NSAZ, NSA4 ) 

LSJ 

= 

4 *NSL + NSA1 + NSA2 + NSA3 + NSA4 

LPT 

= 

Maximum number of points in any function generator 
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LINKING » 


OBJECT MODULES: PRERSTAB 

FORT01 
FORT02 

LIBRARIES: GRAFMS3 

FORTRAN 


II. Program File RSTAB.FOR 
ARRAYS 


TYPE 

NAME 

DIMENSIONS* 

INTEGER*2 

JFUN 

SAME AS IN PRERSTAB. FOR 

INTEGERS 

NPT 

SAME AS IN PRERSTAB. FOR 

INTEGER*2 

NRC 

SAME AS IN PRERSTAB. FOR 

INTEGER*2 

I ROT 

SAME AS IN PRERSTAB. FOR 

INTEGER*2 

ICASE 

SAME AS IN PRERSTAB. FOR 

REALM 

AC 

SAME AS IN PRERSTAB. FOR 

REAL*4 

AR 

SAME AS IN PRERSTAB. FOR 

REALM 

WC , ZETAC 

SAME AS IN PRERSTAB. FOR 

REALM 

WR 

SAME AS IN PRERSTAB. FOR 

REALM 

OMP.S 

SAME AS IN PRERSTAB. FOR 

REALM 

SPEED, FG 

SAME AS IN PRERSTAB. FOR 

REALM 

G 

SAME AS IN PRERSTAB. FOR 

REALM 

ZRPM 

SAME AS IN PRERSTAB. FOR 

REALM 

X 

SAME AS IN PRERSTAB. FOR 

REALM 

W 

(Z.LDYN) 

REALM 

FUNC 

[NFGEN + 1 ) 

REALM 

GBAR 

SAME AS IN PRERSTAB. FOR 

REALM 

WK 

(LWK) . 

REALM 

A 

(LDYN, LDYN) 

REALM 

Z 

(Z, LDYN, LDYN) 

Where: LDYN 

= 2 *{NRMOD + NCMOD ) AND 


LWK 

= MAX0(2*LDYN , NRDOF , NCDOF) 
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III. 


VARIABLES IN DATA STATEMENTS 
Same as for PRERSTAB.FOR 


LINKING 

OBJECT MODULES: RSTAB (or RSTABNP for non-plotting version) 

FORT03 {or FOKT03HI* am- vtr j.m) 
EIGRF 
TKNULL 
EPNULL 
NULE6 

LIBRARIES: GRAFMS3 (required when linking with RSTAB) 

PL0T88 (required when linking with RSTAB) 
FORTRAN 


Program File PSTRSTAB 

.FOR 


ARRAYS 



TYPE 

NAME 

DIMENS I ON ( S ) 

INTEGER*2 

I ROT 

SAME AS IN PRERSTAB.FOR 

INTEGER*2 

I CASE 

SAME AS IN PRERSTAB.FOR 

REALM 

AC 

SAME AS IN PRERSTAB.FOR 

REALM 

AR 

SAME AS IN PRERSTAB.FOR 

REALM 

X 

SAME AS IN PRERSTAB.FOR 

REALM 

FG.SP 

(LPT +2) 

REALM 

VECT 

(2, NIROT + NCASE) 

REALM 

W 

(2, NRMOD + NCMOD , NI + 1) 

REALM 

Z 

(2, NRMOD + NCMOD ) 

Where: LPT = Maximum 

number of points 

in any function generator. 


VARIABLES IN DATA STATEMENTS (ALL INTEGER*2) 

LRDOF = NRDOF 
LCDOR = NCDOF 
LMOD = NRMOD + NCMOD 
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LINKING 


OBJECT MODULES: PSTRSTAB 

SPDPLT 
SHHPLT 

LIBRARIES: GRAFMS3 

PL0T88 
FORTRAN 
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2. EXAMPLE RSTAB RUN SESSION USING BATCH FILE RUNRSTAB 


Use of the RUNRSTAB batch file is a nine-step process. User action is 
only required in the first five steps. 

STEP 1 

Copy the batch file into the run directory (one with enough space to 
execute the programs). 

ENTER: 


COPY F : RUNRSTAB . BAT 

1 Fi le ( 5 ) copied 


STEP 2 

Run the batch file. The parameter required ("F" in this example) is 
the drive letter for the removable disks containing the executable files. 

ENTER: 


RUNRSTAB F 


STEP 3 


Respond to the batch file prompts directing the interchange of disks 
containing executable files. 

D>F'ause - INSERT RSTAB/PSTRSTAB DISK INTO DRIVE F 
Strike a key when ready . . . 

D >COF'Y F: RSTAB. EXE 

1 Fi le (e) copied 
D >COF'Y F: PSTRSTAB.EXE 

1 Fi 1 e (s) copi ed 

D>Pause - INSERT PRERSTAB DISK INTO DRIVE F 
Strike a key when ready . . . 

D>F: PRERSTAB 
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STEP 4 


PRERSTAB displays a program banner, then prompts for three inputs. The 
output listing file name many be "PRN" for immediate printing of output 
data. 


Hf*H********(t»*H*****Ht*H**H*****H*fn*H***tHrH****H»***t«(Hf*«H>t» 
***** ■’ ***« 
***** PROGRAM RSTAB **** 
***** **** 
***** IBM PC VERSION 1.0 **** 

+r ★ ♦> tr 

***** APRIL 19.84 **** 
***** **** 
******************************************* ********************************** 
DATE: 7/26/19B4 BEGIN TIME: 16:58:4 


ENTER OUTPUT LISTING FILE NAME: LIST . DAT 

ENTER FILE NAME FOR INPUT DATA: F : HP26CSS. CDC 

ENTER DRIVE CONTAINING THE PROGRAM USAGE LOG: F 
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STEP 5 


PRERSTAB then displays the modal section input data and prompts for 
the file(s) containing the input normal modes. This will be repeated 
for each modal input section in the user’s input file. 


* * * * MODAL INPUT SECTION 1 * * * * 


SSME HPOTP 26000 PPM REDESIGN APR. 84 


NO. 

OF ROTOR DOF 

= 

113 

NO. 

OF 

ROTOR MODES 

NO. 

OF CASING DOF 

= 

39 

NO. 

OF 

CASING MODES 

ROTOR TAPE CODE 

= 

1 

CASING 

TAPE CODE 

NO. 

OF GYROSCOPIC 

ADDITIONS 

= 

64 


ACCELERATION OF GRAV 

ITY 

= 

386 . 

40 


ENTER THE ROTOR MODE SHAPE FILE NAME: F : HP26MDD. CDC 
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STEP 6 


PRERSTAB then displays the subcase input data. This will be repeated 
for each subcase input section in the user's input file. 

* * * * SUBCASE INPUT * * * * 

NODAL INPUT 1 SUBCASE 1 

SSME HPOTP 26000 RPN REDESIGN APR. 84 

S R PREB SEALS, R T SEAL, OV IN 0.5 

NUMBER OF GENERAL MATRIX ADDITIONS: 

PARTITION 1 = 2 PARTITION 2 = 2 

PARTITION 3 = 2 PARTITION 4 = 2 

NUMBER OF INTERGROUP ADDITIONS = 14 

NUMBER OF FUNCTION GENERATORS = 24 


MODE 

SHAPE PRINTING CODE = 

1 



NEXT 

CASE CODE = 4 




RPM1 

= 1 . 00000E+04 

DRPM = 1 . OOOOOE+03 

IP = 

0 


All user inputs and input files have been read in as of this point, 
and the program will run until completion. A root-locus plot will be 
displayed for each subcase, indicating the status of the run. 


STEP 7 


Upon completion of PRERSTAB, the batch file next executes RSTAB. 


D >RSTAB 
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STEP 8 


Upon completion of RSTAB, the batch file will delete the RSTAB program 
and RUNDATA files from the run directory (to conserve space). Then 
the post-processor program will be executed. 


D >DEL. RSTAB. EXE 
D >DEL RUNDATA.BIN 

D>PST RSTAB 


* * * * SUBCASE PLOTTING 

MODAL INPUT 1 SUBCASE 1 

SSME HPOTP 26000 RPM REDESIGN AF'Ri B4 
S R PREB SEALS, R T SEAL, OV IN 0.5 


NO. OF 

ROTOR DOF = 113 

NO. OF 

ROTOR MODES = 1 3 



NO. OF 

CASING DOF = 39 

NO. OF 

CASING MODES = 14 

- 


RPM1 

= 1 . OOOOOE+04 

DRPM 

= 1 . O0000E+O3 

IP = 

c 


All plotable output, for each subcase, will be output to the dot-matrix 
printer. 


/ * 
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STEP 9 


Upon completion of PSTRSTAB, a completion banner will be output. Then 
PSTRSTAB will execute the wrap-up batch file (FIN), which will copy 
the output listings together (if output was directed to disk storage). 


********************************************************* ***** **************4 
***** ***■) 

***** EXECUTION COMPLETED AT 17:31:29 ***< 

***** ***i 

************************fc******************************************** ****** *4 

D>F IN 


D>COPy L I ST . DAT +LIST2+LISTT 

1 Filets) copi ed 
D>DEL LI ST 2 


D>DEL LIST3 

D> 

D> 
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TIT L E Q[ 


7 a \n 4 a? 

9 r i f ^ ^ a. # i 


IDENTIFICATION 


LO.Q.OJ O ao 


PROBLEM TITLE (O/RRP 

1 C4PP K£Q'JXRBV 

MAY OCCUPY CO U/ MUZ 1-72 

note-, the Fzc.£r 6o chaeact&isz of 

THIS TITLE WILL YPPe.AH. OU 
All Plots ORFF tev ey this; 
PRO'S HAM 
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PREPARED BY: 


CHECKED BY: 




Rocfcotdyne Division 
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REPORT NO. 



A-' ZEfl-5 a'f) M.OD. i 


MO PEL sue CfiRV 


N.RV.a.F, .N.R.M.0D 


N.C.P.e.F, .NC 



NCT.fi? 


£ 72.6 


IQ 



IDENTIFICATION 


NRP0F = NO. OF ROTOR PEG REE’S OF FCEECOM 

C ^ *20 

NRM0D = A/O. 0F ROTOR MOPE SHAPES (4 2 o) 

NCVOF * A/0, OF CASING VEGCEES OF FCEEPOM 

(4 12.5) 

A ftM&D - NO OF CASINQ HOPE SHAPES (4Zo) 
N6YR0 - A/a OF GYROSCOFlc MATRIX AWJJICNZ 

nrtap - flag for Reaping rotcr mopes 

A/SP FREQwEtJCZZ S 

bJRTAp- o RoroR mOpbs a*jp frequencies 

WIUL bE REAP FCOM C.ARPS 

mrtpp- L Rotor Mopg-s auI> frequencies 

MILL ZE READ from TA PE% 
CREKTEP ZtJ A PRevLOul v/TCfc£ 
RulM. CARPS S*x* AUp 
wot RraarREP. 

k/RTAP- Z RoToR MoPCS A a/D FREQUENCIES 
will Pr Fffp from t ape h . 
CREATED in p PREVIOUS 

ST*ZX>YtJ£' RUN, CARPS EKXX 
AtJp tOtYK NOT REQUIRED. 


klRTAP* Z 


NRTHP- Z 


Rotor mooes only vjlll be 

REAP FROM TflPC i, CATS EX XX 
FORMAT CAAVS EX XX NOT 
FEGMZCEV. 


NOTE: IF NCTfP-t, NPM OP MUST EQUAL THE HUM EEC 
CP HCPiS CEQirrCTFiO ZtJ THE /v'Se <T R{fN. 
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REPORT NO. 


MoPEL SI2.E CARP C CQ*JT INU S~eQ 

NCTAP =• FLAG Fo& £E"API»G CASING MOPES 

A/jD FREQueWCrES 

NCTAP = O cA^IrJG MOPES A/Jp PCeQ'JENCieZ 
WILL £>F /CEAP F£0*M CAF.PS, 

A/CTAP- l CAZItJG MOPES F^EQuE^CiES 

WILL EE FEAP FKfiM TAPE 5 ; 
CHEATED £>/ A PfffcVl0*£ V9T£2 
filAJ. CA^PE 5"r>T>CX. AND <©02 xX 

a/ot <e£G>ur£e n>. 

NCTfipzZ CASIfJG KO DCS A/yp FCetf^ttfJC : £ Z 
u/zxl. Be" fead tapc 

6FLP.TE& 6/ A ptfE/IOiAT ZTP^ytJC 
R'Jtrf. Cft&OS £r£TXKK Ar*S& 6^2 XX 
a/ot 6e&uj&ei> m 

NCTAP- 3 CASING A: OPEL / fc/ZLL BE 
£EAP PeoMl TTAPT'i 5 CA£P 5TXX.X 
FO£M T, CHKpr rrxxx ,vot 
FE^'^IkCIP, 

NoT£ : TP WC7AP--1, HCMoD A THr A/^?E{ d 

OF ADOPTS F£&u€Zlei> Thi THC V9CPT fiv/J* 

6£AV - ACcELC A AT I Cf\) OF GRAVXTy 
NORMALLY 


MLJ^T .= 


PLAG- Pofi^ P/LtNTlAjG' #p A~*T0 /l/c,AS/a)&- 
MvpP StiApeS FAs*\ /Aipur plLPS 


AUiT*0 A\ope itiAPtz! (o^FAult) 

MLlif*} 00 HOT P/t/HT MipP JHAAe* 
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OATEi 


' 



ROTtiR MOb? SHOE'S 


□ 


AK.C.r. ,|jr). . . . 


E 


i L • . 1 1 i_ 1 , | » 


E 


• 1 

6£T/2.S 

r 37 




[49 


• 1 

- * . » I > ■ * 


E 


WXrwjpcKMMOpj; 


IDENTIFICATION 73 5!/,X.X. . . , 80 


REPEAT THIS MRP uiTTIL tJK POP EiJTWEJ AT c 
M#Pe FOfZ. BACH OF f/RVOP fiO TOR AtOPE T. 

REQUIREP 0 ULY IF tJRTXP-O 

mote:: thecc mcp&z sr h6kn)*ll-£.e7> 
Such t-HHT 

L§] t [m r ][ 1J= Lrj 


CftSIMG MOD£T SHAFTS 


Dl 


A.d.f.I., ,T> 


E 


• *■ 1 

, /► . ....... 


E 


— ' * ' | 

&EIZ.Z 

E 


% 1 


E 


• 1 

. . i # » I . .. . 


E 


fiC,( NCWP.HSMOD) 



IDENTIFICATION 73 SS*. A,X , , . 80 


Repeat rHrs c*R.p uhtil vcpcf evtricz Ate 

fstfiPC Fort eACH OF NC,MOP CAZHJ& PtOPf S. 

SfcGtflKtp O^P/ IP fJCTAP-0 

no ie : THtoe modes must Be noam<\ ii?eo 
Such That 

LI3 T [H t ] [§]* [i] 
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rotor natural uczes 



NTIFICATION 73 


REPEAT THIS CARS UfiJTZ u NRMOV R0 Tz>< 

FCEQuetJcies me eutck n >» units of 
WR f\£E RfiDIfivS /SEC" 

REQUIRED LF /V/TTAP - O OR 3. 


1A S : / J 6 l FECGiiE UC l E S 



K0Peprr nrs ca*t> ajcmop 

CASING 

faequemczes me e yrERet>. ufA/rrs 
WC ME KAPTAuS / SEC. 

6F 

ftEQUlZeV rF rJcTAfp - o 
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^ytfoscoprc matrix appztzous 


214 


Et2.% 



IDENTIFICATION 


ZK - RoToR GROUP RovJ /uotM&erfL 

XT - RoTOR GROUP COLUMN AJ UMBER 

6 y RO CxR> rx) = \jjez sht/ moment o f 

ThAERTZA TO Be APPeV 

at theze pof 5 3 

NGYRO CRRPS REQuZREP 

(a/gyro MLfzT ae > / ) 

AYOTE: <$YRo$>CJ>PlC APPITZcnZ AR£ 

normally £fxrec.ex> itj paxrz^ wzth 
A (p) Wofsi'ZtiT Foe. XR > IT rf-vP 
A O) moment Foe iT>lfL 
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IDENTIFICATION 


n\h 0 .y.O.OOZ.OlM 


TITLE 

l CfiKP K£Q Ur KBP 

note: TH€ FlF.iT fro op 

This TITLE WZU- F?P£Pf^ OM ALL 
pLtri cfeatep gy mis pcogz^m 
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COfJuFoTlNG ELEMENT DESCRIPTION CARD 




IDENTIFICATION 


A/S A I = 


NS A 2. = 


A/S/? 3 - 


nzal/ = 


A/S Z. = 


r/p/cr - 


i £/?££> REQUIRED 

NO. OP UPPER LEFT PARTITION 
GluERAL STIFF MESS fluT> 

DAMPING ADDITIONS 

NO. OF UPPER RIGHT PARTITION 
GENERAL- 'STIFFNESS AMD 
DAMPING ADPITIUJS 

NO. OF LOvjEP. LEFT PARTITION 
GENERAL. STIFFNESS AND 
MPI N 6 ADDlTl OA/S 

NO. OF LONER RIGHT PARTITION 
GENE RAl STI FF^ESS A ND 
DAMPING ADDITIONS 

NO. Of STATIONS \iJPERE 
IfJT EP jSROUP ADDITIONS, such as 
BEARINGS And SEALS ARE To 
BE" ADDED 


~ CONTROL feag for PRINTING of 
' COUPLED SYSTEM MODE SHAPES 

SPAT ~ 0 PRINT Pope E/YAPCI 

I PET * / NO PRINTING 
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(COM TIHtAeO) 


KOd T = cotrreoLr Flag Foe stability 
Plots 

kgrt ■=• o plot sT/^\6r^rry cutxF of 

V MODE‘S frames 

KLK.T = 1 PU>T STA^ILSTy CM&ve' OF 

AFC AfOZ>£Z 0*J 1 FAA^B 

nxtc - cooreoL fo^ 

/££//</£ 

A/xrc= i ueotJ coMPLerr^J of 77/00 

case. xeTt/w to reao cakl 

/Ooo/o AA/£> corm rJLHT. 

AtXTC = 2 . RBTUKtJ TO AEAX> £/}££> 

(2?0 VO 002-0 - 

tJYTC- c> TCTjCtJ TO tferAb £/?<P 

6 OFX< xxx A tJ P Co/j TjtJcsE . 

AJ XTC ' *f TEtf/VTfMirr TtfZS 

CA£e~. 

NFGGAJ - fJO. OF FutJCrrroN 

GetJ&AATCfZS F&< SPEEO 
ZCFUJDG OF ZTZFFMFSS 
AtrSO IMMATFG r 91 >Z>TTl 0 hJ£ 

(/ /FGFfJ g 2^ ) 
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DATE: 





SFfEV P£SCRIPTC 0 M CAR'D 


D 

■ 

R.P t M.t. J , . . 

2 £ 12.9 

m 


P.RP.M. . . 


0 

■ 

. ... . HI 

112. 

37 
1 

n 

1 

- A 1 1 - J j- 1- 1 . 


m 

■ 



a 

1 

■ 

1 1 1 1 -■■*■- . , 1 i 


IDENTIFICATION 73 & 0 <b O 80 


1 CARP RcQulKFD 


RPtfl = lowest r.otoil zpzk) sp&fd ax 
WHICH SYST&M /JftTvt/C/tL Feed's 
SHOULD Sc CPiLCuLATTD A'jP 
PKlhJTFD 

MO-J^: PKZtiTZtJG OF T/-/£T MOPE ZS 

coTtzolced &Y IPCT om g>os-kk 

PRFm - Rotor. sPirJ speb ~P i^c&etafut 
T o A/£XT SPETD F°fZ 

FrZE&uetJOJzes 

a/x = total 

(i 4? Nt s. s-o) 
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CASLNG MODAL- DAMPI M6 




mum&aaamBmm 


IDENTIFICATION 



2ETAC ( l) = MODAL T>AMprtJ6 VALUE 

To BE APPLIED 7 Z> 
CASltJG MOPE’') Tfj teems: 

op cpttzoal Damping 

(ie. 2 % Pmptmz ujdul-l> be evTereezz 

AS ZETAC = 0.0 z ) 

mcm&d EuTgxes required 
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FUS/CTIOhJ GEVFFflTOR. PftTA 



IDENTIFICATION 


73I&Q7.X.X. 


NPT - 


zruT = 


t/tl = 


NUM5EP OF POINTS TMT5 

FUNCTION GENEK.ATOK ( £ ZT) 

0 no Plot 

1 CKFPrje * PLOT- OF TUTS 
FUNCTION 

title to ee placep at the- 
Top of the plot cF tuts 
FuNcTzorJ - MAY occupy 
Columns 2E-7Z 7 must e^p 
WITH $ 
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FUNCTION GetJetATOZ ( COfJT b) 


SPEED ( I) = poTOfc SPI/O SPEEP OF ZTH 

PoZU’T rM THrS FufJCTZbN 

FG ( I) = FWO TZObJ vALUt OF IT* POXAJ T 

REPEAT TH-ZS CA^D (AUTZU N? T PbXMTS 
HftVF BEFfiJ Dezc&Z&EV - ALL FkUCTXo^^ 
SMoi4U> BE DEFINE!) THE EVJTXEE 

SPEED pAfOGTE CO V&£E 7 > Irt THIS /ftfM 
AS DESC£t8<FD #y £06© 



REPEAT THXS SET OKPS UHTZU MFGFhJ 
sets fhte&e2>. faction (Seuexnrczz 

WE IfjlDcX£V> 1 THROUGH NFGEfJ ZtJ 
THE OPPE& TtfeV A&E ZF*J>. 
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NSL- ADDITIONS 


t>£FttJ£S £TlFpue^$ rwG 

AVDlTIOfJS COtJfJ&CTlfJ O 660 UPS 


ICC 



CSCM.) 


IDENTIFICATION 


T hxs cfltto l>££c£TSer$ THer ZTipp^ess, 

A Ot>I T JO tJ S f=C>6. Tl'/J CLCMJ rj T# 
AU1761K F(TT*J££/J TU/o ptDj/JTI 


Fyl [cs(i 

Fg. J ~ csc«)jcs<tf| 



tuxs c*RP pesc&t&es Tue pwptmg 

fiVPiTiotJj cotJKfecrrztJs i~He zwc 

POZtfTZ 

fF y l _ M ( y } 


CP(^'CPCx) £ 
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KSL ADDITIONS c COfjTlMUeC> ) 


XRR - foTbR. GK ouP / DOF 

IftC = £otoR 2 DOF 

ic£= C/lZI.hJGi <Sf?OUp y VoP 

ICC ' G&OUP 2- POP . 

L-/ = Fu/Jc-rzoM &etf£Z/rrb& tju*&ep- 

: — OPeZRTZrJG CrJ CjOEFFZCTE^T CS(l) 

LZ - Bfiocrr^w GeuetFTcz. 

OFE&FTTtJG OfJ COEFFZCLE+JT GSCZ 

L*> = FMA/CTTo^ £EN£ftfi7t>& NUMBER 
QPEXPCTIbKS oki cjoeFFiczc+rr es(30 

L-V - FUtJCTZOAJ GE/JErtHTOfiL 
— OPEC^TZ/JG CM COEFFICIENT CSOF) 


KL K2, KS - FutJCTZfitJ EEtJEC f\Tor^ 

~ VUfriBEfZ- OFeWTftJG, OKf 

D/WF£k )<S COEFFZCZe^TS 

&PCO oPC2i . tPCs) . CPC*) 
RBZPercrm/eL Y 


A/su partzs op ca^do e^Qureev 
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GENERAL. ADDITIONS 



IDENTIFICATION 


These t > bfzmb Geueetyu zn^rNezz 

/HiP DAMPING iWWTlDwr EXT//£~/C ECTw cr/J 
/ZOTod. frul> WZTHrrJ T HF feoTofc 

OtlLV ? o<Z MZTHIK) the ChJLY. 


JL s 
D - 


a* APPrTlb/o coeFFZCteuT 


zhwPzms appitto^ coEFFrcxe^T 


I£ = tJO. 

£G - COCUMfJ <JO. 


LZ = 


FUVCTI OM A /UM6€~<1 

OP&lATtrJG CM CO£FF. S 
FuMCrTX- on) <SeUE£frTO(Z NUM&E&* 
0?CRfiTiM& crJ coePF, P 


£/KPs fine' The’ stame' format fo<z 
tfu. 6&J&L&L, MVZTIS^Z- 
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6 ene&AL > ftDbZTlQKiS (Co/jT'gQ 

AIL hVVITZotJ C A(ZX>S must eg 

ey\Tec.ez> i/J the: FoLjLolpz^g czv > e & *. 


PARTITION 

NO. OF C*RPS 
X£Qur*eJ> 

CFRP 

I.V. 

UPPgR LBFT 

USAS 

boll 

(XfP£R RIGHT 

NSft 2. 

to 0^2. 

Loiter le'ft 

/l/S/93 

6>C<?3 

Lo*se& right 


(oCHi 


MPPeC L£TT /*D£/J5 tfCET Of/ Ttfg fZO~T0CL. 

r>ur to motx-onj of thc- xoTt>&. 

UPPee right A&ouS Afce Forces. sk) The Rotg& 
Durro MOTtotJ OF TH& CASZUG 

Louses uePT Aj>pms /?/c<r Fo&ce * f c*/ 

Crt five's To mvtccm of The rotq c 

LOWglZ RIGHT HPPvS /MCg POfZCBZ OAJ THe 

CrfSI/JG PCtE To MOTZctJ e>F THe CrfCZtJG 
OX SfKTrJGS 70 G&ouub. 
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OUTPUT P£6f£gs OF FUEOPoT 


tU.IT.0T, MCA s 



IDENTIFICATION 


1 CTPP FFQ(aT£FI> 


FltfoT = 


r/c^e - 


NoTT'. 


/VO. OF tfOTOg GZGUP P&S/Z€£Z 
OF FFEBVoM To rtfPe/VZ. TfiJ 
PPIm'Ted ourrrocr motxe shapes 
ftrsP/o/Z PLOTTED MODE SMMPES. 

MO, 4F C/)£TsJ(S SPOiAf DEGREE Z 
OF FREEDOM JO PPPEP/Z. XaJ 
PPTMTeV OUTPUT MOPB~ StfrtPES 
pMD/ot^ PloTTED WOVE SFrtP&S 


TF PLOTTED Move- StfrtPes rtzF To 
be Pe® ueztbVj the Plotted D- o. f. ’s 

MUST APPEAR. PT THE FtZOUT OB TH&E 
PUTS , Zti OPDLR OF TmcPCPZJmg mxTAl 
COOPDl tJ ATE . fijOM-e LOTTED P,0*F. , S 
MAY THEM £>E lSZT^P. 
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i CAPP t£TQl/lfiej> 
piope’ shape* PZiht/plot 


ONLY MOPE SHAPLZ WITH MATC/FAU 
F^eOiAENc-iez (Sze/rreiL THHtj Flovj AnP 
LESS T ham p^r^H lAyrui- EE 
MT>/0(L PUTTTBV (IF fZ EQU ESTEP) . 

UNITS OF FHZGH AuD FLObJ A Kg 

cycles ?efZ minute. 
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critical cpsei> Plot sRid i>ata 



IDENTIFICATION ' 73 


1 %.€Q\aI£.€T) 

THT 6JRXD USED JIO THE* CRXTXCAL 
SPEED PLOT wrt-L BE 2 >cFXaj67> B/ THLie 

/4J £ELDt/J» 


yr* 


*/[ 


vb -r 

xe 



SPTM SPffP 


UUITS XBjtKifitfQ DX MC ^PM. 
u hits of y e,yTjA+Ji>py arccpm. 

/JOTL : vy MW BE EQUAL Td 2E£0 ; I*j wHJC-H CASE 
T/E' fXO&WM wjlU- VCTeRMJrJC AfJ 
AfPtoe/uAic y-Axrs iNctzcMeuT. 
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PLOTTING FLAGS 



IDENTIFICATION 


1 fceotfifcErD 

IPl-T F - fuOTTI^ Fl*<£ RD£ CRlTrcAL. 

SPee> map 

=• O PLOT CRITICAL S PEEPS 

« I no Plot 



1 CA6D RJBQurim 

IPRT2. = PLOTTXW^ FLAG FOfc ST/WLETy 

MAP 

- (9 czeme stasi tiry pldtc . 

- 1 mo Plot 

wore; format of Twr stability plot 

P£7efr-TrJCl> BY <C R.T 
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STA&rUTy plot Vtrrft 



X c/^x> Aeourcrp 


Twr <s;<r:ld uxep Twr sT/^ex^rry Ppott 
vttll ee P^Fr^^D ey THesr pAPAHFTg-er, 

AX PCFJmFP EELOVaJ. 



UUITS OF X5l > X^< > AU& Px/ A*£T £pA1 

mwits yei^yr/j a-mp py/ Afc£ 
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stability PU>T CHARACTERS 


2 : 1 . 2 Z, 2 . 3 . 2 


+13 




IDENTIFICATION 




i CAAD ReQUIfcED 


IF DULY 4 MOOES ARE To PLOTTED 
PER FRA^C, THE PROGRAMMER piAV OHOoSg^ 
FROM the LIST OF ^yMfioLS ^ELOiM, 

U/f/ICH ft~0TT3»6 S/M^OL To attach 
TO eACH mope. 


Symbol OA + XOV^X^®Sfflg)Q®ODI 
21 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 


mote ; ip /4 ll mod^i Plotted oaj 

FZhwC f ZYH&OL X WILL &€ 
USED Foie /?LL AfOfeS > BwT THIS 
CMP MUST STTLL BE PMTEReP. 
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PREPARED BVi 


CHECKED BVi 


* 


Rocfcetdyne Otvtelon 

Rockwell International 


PAQE NO. 


. IREPORT NO. 



output vesRFes of frffpopi 


KS ? ur^ep ofJLv if hiPotto 


R . 0 . TCI .) 



IDENTIFICATION 


JPOT(Z) = 


LIST OF /ZOTO/Z <Z,(ZOUf POP'S 
TO rfPftftZ TaJ P*IMT£2> WD/od 
PLoTTTP OUTPUT - NTROT luTRZeZ 
RFouiRev 


Keourzep omly if ncas£=p o 



IDENTIFICATION v - 73 


leased] 


~ LIST OF CrfLlVG GPOUF Dor's 

To jaj PPTtijeD rtryz>/o/z 

PLoTrep output — mc rtsT 

errnzies zeouitz fd 


FORM R 152-R-2 REV. 10-73 
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PREPARED BY: 


CHECKED BYt 


* 


PACE NO. 


Roctetdyne Dtvtaton 

Rockwell International 


2r 


REPORT NO. 



MOPE - SHIPS' PLOTrtMG PLAG 




? IDENT J FIC ATI0lti-S*$?;* 


L Cazv ZCQutesP 

TFKTZ - o Plot SyrTFM Mope snares 

s 1 mo Mo^ Pfott 

NOTE l IF Zf(ET3 - 1 , TUXS rx 'T?IST FJtJAL. 

TfJPuT CEKP ££ z?ux<erp 



R€5?’D OMLy if IPR.TS -O 

:RPM s MO. of ROTOR SPfrO £Pe£DS* 

FOfsL WtfVCH MOPe SHOfSS \tJLLL 

fLOTT^P. 

<RP^t ^ NJI (wo. cFsp^ep i mcc£M€^7$) 


FORM R 1S2-R-2 REV. 10-73 
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M OOfSHAPe PLO TTI^S SP££i>S 



PE 0 H 31 i 3 a 23 >i 


ftPMCrj - 


AWAY OF.SPEWOS Foe. 
MHicM Mope' SHrtpez 
TO && PLGTT& 


PEPtftT THIS C r\(LO (LF tJE'CeZSnfcY') (A UTIL 
^PM SflEepr VrAVF &E&tJ £7JT<ZgjEV 

Ntrre: ^spm c/vio owey Be e^xxtar spiu 

spffps po& vJHicrt twg syrreM IS 

Bexr^s so lve.x> 

ie. Z&PM = PPMi + *1 

I< Ml 
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PREPARED BY 


CHECKED BY: 


4* 


Rocketdyne DMsJon 
Rockwell International 


PAGE NO. 

27 


REPORT NO. 



A lope SHfrPF PloTTXUO PARAMFTFZS 


J-bs 2 J. t> 



ID£NT!FJCAT JON: ; r ^ 73 


NSTAT 

= A JUM&FR OF /fOldF./ CASING 


stations To Plottfo (4 id) 

IFLG = 

- FLAG To CONTROL V-2: P OF 


OR3LT FloTS 


= i 

Plot Rotor, shapes o*jl y 


- 2 

Plot casing chaffs ojlY 


= 3 

_ k> 

Plot fc&Tod’ } CASING) A up 
Rctor-casl^g RFL ATIVF 



SFAPFSj Fo4L eACM UOPF 

ZFLGl ^ 

FlT\Q Fo R fLOTTlfJG AttAU PCF 

shafts if x ) y, At jt> e Par's aff 
I tJClMPep IrJ THF FoToF fitoPFL 


= O 

Plot X vs. y P£FL£CT 1 of'J 


1 

Plot X vs. e lfflbctzo^j 


- s 

Aio axial Vor mods plots 


FORM R 152-R-2 REV. 10-73 
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PREPARED BV: 
CHECKED BY: 
DAT Ei 


FLoTTInKS, C CAUT'D) 

THgTA ~ AMO LET OF- ALT uS^ue^T OF THST 
X-AXIX wHfTJ VieVJZtJG TH&* 

y-Z: o£*e,r.T pust$ (ikj Desk's) 




Bocfcatdyne Division 

Rockwell International 


PAGE NO. 




REPORT NO. 



S CALS' - A uTr V> TO £ CALS' 

THe VeFLSCTTLOtJS To AtJ 
rt/pzofzzATe: sxee Fofc. 
plotttms purposes. 

MOK^AL- OfTIOM: SC/ALS'^O. io 

/I StAAUJE CL ZCAce 1//XLL 

77y^ si^tr of 77/^ 
0Z6L7S, A LACaeSL SCAUg' ItJLLL 
VecKenoc thf of tw 

o&sxtt . 


FORM R 152-R-2 REV. 10-73 
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Rockwell International 
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REPORT NO. 



AXZRL COO&DIkMTTS 



XCL) = 

sf- /O 


zj_ - The x- coozvrtjfr-rz' or rue 

^ jZH sr'ATZobJ 7 D &£ 

* * pLorreo . rye stations 

truer Be xa/ orp£< or 
/tscerJPxrJG x- coo*>i>ih!#Tr: 

ze, XCI+O > 

Refer rr this Orzo Cbf aecez^fiy) 

(autzl njst^t eMTfzes fuze rnoe. 


Here : ReMerhA&eil. THrer TH£~ Pot's Zrj 
ZfoT(z) /ft/P icme (1) tuuce 

COKCeSPOrJT> TO TTie~ COO^VI/ZATeS 

XrJ XCD. 
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♦PRERSTAB********************************************************* ****** 
C 

C PROGRAM PRERSTAB 

C 

C ROTOR DYNAMICS ANALYSIS PROGRAM 

C 

c******************* **************************************** ************ 
c 

PRINCIPAL SUBROUTINES UTILIZED IN PRERSTAB ARE CALLED 
IN THE FOLLOWING ORDER: 


C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 

c******* ****************************************************** ********** 
c 

DESCRIPTION 


FORT 01 READ PROBLEM SIZE DATA, READ AND 

NORMALIZE GYROSCOPIC ADDITIONS 
R1 

MODAL 

TRANS 

FORT 02 ... . READ SUBCASE DATA, MATRIX DATA 

ADDS 

ADDM 

OUTAB 

R3 


FORMATTED USER’S INPUT FILE, INCLUDING ANY 
SUBCASE INPUT AND SUBSTRUCTURE MODE SHAPES 

FORMATTED ROTOR NORMAL MODES (IF NOT INCLUDED 
IN THE USER’S INPUT FILE) 

FORMATTED CASING NORMAL MODES (IF NOT INCLUDED 
IN THE USER’S INPUT FILE) 


C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
•c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

c****************** ************************ ************************** *** 

^STORAGE : 2 


INPUT FILE NAMES 

< USER-DEF I NE ABLE > 
< USER-DEF I NEABLE > 

< USER-DEF I NEABLE > 

OUTPUT FILE NAMES 

< USER-DEF I NEABLE > 

RUNDATA.BIN 

FGPLTS.BIN 

FIN. BAT 
LOG. SAV 


DESCRIPTION 


FORMATTED OUTPUT LISTING. CAN BE ’ F'RN ’ (FOR 
IMMEDIATE PRINTING) OR ANY DISK FILE 

BINARY RUN DATA FILE FOR USE BY PROGRAM RSTAB 

BINARY FUNCTION GENERATOR DATA FOR PLOTTING BY 
PROGRAM F'STRSTAB 

FORMATTED IBM BATCH FILE TO COPY OUTPUT 
LISTING FILES CREATED BY PROGRAMS RSTAB AND 
F'STRSTAB (IF NOT PRINTED IMMEDIATELY) TO THE 
USER-DEFINED OUTPUT LISTING FILE 

BINARY USAGE LOG FOR PRODUCTIVITY ACCOUNTING 
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PROGRAM PRERSTAB 


CHARACTER* 1 T I TL ( 72, 2) , C 1 , C2 

CHARACTER BANNR < 3 ) *3 1 , LOGF IL*14,FIN*14, FOOT* 1 4 


NSA ( 4 ) ,NZ <4) , NDATE (3) , NT I ME (4) 
RZ (6) , RZ 1 (6) 

F'RN 


INTEGER 
REAL 
LOGICAL 

EQUIVALENCE (C1,F0UT>, (C2, LOGF ID 


C 

C 


73 C 

74 

75 

76 

77 C 

78 C 

79 

80 
81 
82 

83 

84 

85 

86 C 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 C 

101 
102 

103 

1 04 
1 05 
106 
107 
.1 08 
109 
1 10 


C* ARRAY DIMENSIONS MOST LIKELY TO CHANGE ***************************** 

C 

C NOTES: DIMENSION WK TO LRDOF 

DIMENSION G TO (LRDOF, LRDOF) 


REAL*8 GEAR (16, 16) , WK (115) 

INTEGER JFUN (160,2) , NPT (24) , NRC (100,2,4) , I ROT (20) , I CASE (20) 

DIMENSION AC (50, 14) , AR ( 1 15, 16) , WC < 14) , WR<16) , ZETAC ( 14) , 

+ SPEED (20, 24) ,DMP(100,4) , S(100,4) ,FG(20,24> , 

+ G(1 15, 115) , ZRPM(25) , X (10) 

C***** ********************************************************* ******** 

c 

COMMON /DATA/NGYRO, NCMOD, NRMOD , NCDOF , NRDOF , T I TL . NCASE, NROT, 

+ K'RPM, NFGEN, NSA, NSL, IPLTF, IPRT2, IPRT3, IF'RT, KCRT, 

+ NXTC, RPM1 , DRF'M, NI , FHIGH, FLOW, NSTAT, I FLG , IFLG1 , 

+ THETA, SCALE, MAXPTS, IPCNT,ISCNT 


C 

C 


COMMON 


/MEM/G 


DATA BANNR /’PROGRAM RSTAB’, 

+ ’IBM PC VERSION 1.0’, 

+ ’APRIL 1984’/ 

DATA LOGF I L/’ :LOG.SAV’/ 

C******** **************************************************** ****** 

c 

C ARRAY DIMENSIONS 

C 

DATA LCMOD , LRMOD/ 1 4 , 16/, LSA,LSJ /100.220/ 

DATA LPT /20/ , LRDOF, LCDOF /I 15, 50/ 

C 

C** *********************************************************** ****** 

c 

LG=LRDOF 


1 1 1 

r 

D 




1 12 

c~ 

SET UP SCREEN 


113 

c 




1 14 


CALL 

QCLEAR ( 1 

,7) 

115 


CALL 

QBORD ( 1 ) 


1 16 


CALL 

QCSIZ (0, 

0) 

117 


CALL 

QCMOV (0, 

24) 

1 18 

c 





RI/RD84-191 

D-48 



D 


Page .'5 
08-13-84 
18: 10: 30 

Line# 1 7 Microsoft F0RTRAN77 03.13 8/05/83 

119 C PROGRAM BANNER 

120 C 

121 CALL QDATE (NDATE ( 3) , NDATE, NDATE (2) ) 

122 CALL QT IME (NT I ME, NT I ME (2> , NT I ME (3) , NT I ME (4) ) 

123 NT I ME <3) = NT IME <3) + NTIME (4) / 100. + 0.5 

124 C 

125 WRITE (*.8004) BANNR 

1 26 WRITE(*. 8005) (NDATE < I > , 1=1 , 3) , (NTIME < I > , 1=1 , 3) 

127 C 

128 C OPEN OUTPUT LISTING FILE 

129 C 

1 30 CALL QCSI 2 (0.7) 

131 WRITE (*, 8001 j ’ENTER OUTPUT LISTING FILE NAME: ’ 

132 • READ (*,9000) FOUT 

133 IF (FOUT. EQ. ’ ’> FOUT=’PRN’ 

134 5 IF (Cl . EQ. •’ ’ > THEN 

135 READ (FOUT, ’ (IX, A) ’ ) FOUT 

136 GOTO 5 

137 END IF 

138 OPEN ( 6 , F I LE=FOUT , STATUS= ’ NEW ’ ) 

139 WRITE (6, 8004) BANNR 

140 WRITE (6, 8005) (NDATE ( I ) . 1=1 , 3) , (NTIME ( I ) , 1=1 , 3) 

141 C 

142 C CREATE WRAP-UP BATCH FILE 

143 C 

144 OPEN ( 2 , F I LE= ’FIN. BAT ’ , ST ATUS= ’ NEW ’ > 

145 PRN=FOUT.EQ. ’ PRN ’ .OR. FOUT. EO. ’LPTi: ’ -OR. 

146 + FQUT.EQ. ’prn’ .OR.FOUT.EQ. ’ lptl : ’ 

147 IF (.NOT. PRN) WRITE (2, 8002) FOUT 

148 CLOSE (2) 

149 C 

150 C OPEN INPUT FILE 

151 C 

152 WRITE (*,8001) ’ENTER FILE NAME FOR INPUT DATA: ’ 

1 53 READ ( * , 9000 ) FIN 

154 OF'EN (5,FILE=FIN, STATUS= ’ OLD ’ ) 

155 C 

156 C OPEN RUN DATA FILE AND FUNCTION GEN PLOTTING FILE 

157 C 

158 OPEN <1,FILE=’ RUNDATA.BIN’ , STATUS= ’ NEW’ , FORM=’ UNFORMATTED’ ) 

159 OF'EN (2, FILE = ’ FGPLTS.BIN’ , STATUS= ’ NEW’ , FORM= ’ UNFORMATTED ’ ) 

160 C 

161 C OPEN LOG FILE 

162 C 

163 WRITE (*,8001) ’ENTER DRIVE CONTAINING THE PROGRAM USAGE LOG: ’ 

164 READ (*,9000) C2 

165 OPEN (7, FILE=LOGFIL, STATUS=’ OLD’ ,ACCESS=’ DIRECT’ , 

166 + FORM=’ UNFORMATTED’ ,RECL=242) 

167 READ (7, REC=1 ) NRECS 

1 68 C 

169 C F 0 R T 0 1 

170 C 

171 NXTC=4 

172 I PCNT =0 

173 C 

174 15 I PCNT = I F’CNT + 1 

175 ISCNT=0 

176 C 

177 CALL QCLEAR (1,7) 
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178 CALL QCMQV <0, 24 ) 

179 C 

180 CALL F0RT01 ( AC, AR, G, LG, GBAR , LCDOF , LRDOF, LRMOD, WK, WC, WR) 

.181 C 

182 C SAVE RESTART DATA 

183 C 

184 WRITE ( 1 ) (TITL ( I , 1) , 1 = 1,72) , NCDOF, NCMOD, NRDOF , NRMOD, IF'CNT 

185 C 

186 WRITE ( 1 ) (IfiCtl.J), 1=1 , NCDOF) ,J=1, NCMOD) , ( <AR(I , J) , 1=1 , NRDOF) , 

187 + J=1 , NRMOD) , < (GBAR ( I , J ) , 1=1 , NRMOD) , J=l, NRMOD) , (WC ( I ) , 

183 + 1=1, NCMOD) , (WR(I) , 1=1. NRMOD) 

189 C 


190 C r 0 R T 0 2 

191 C 

192 20 I SCNT= 1 SCNT + 1 

193 C 

194 CALL QCLEAR (1,7) 

1 95 CALL QCMO V ( 0 , 24 ) 

196 C 

197 WRITE (2) IF'CNT, I SCNT 

198 C 

199 CALL F0RT02 ( ZET AC, FG. SPEED, NPT, NRC, S, DMP, JFUN, LPT. LSA, LSJ , 

200 + ZRF'M, I CASE, I ROT ,X,NZ,RZ,RZ1> 

201 C 

202 C SAVE SUBCASE DATA 

203 C: 

204 WRITE ( 1 ) (TITL (1,2) , 1=1,72) ,NSA,NSL. IPRT, KCRT, NXTC, NFGEN, MAXF'TS, 

205 + RPM1 , DRPM, Kl I , NROT, NCASE, FHIGH, FLOW, RZ, IF'LTF , IF'RT2,RZ1, 

206 + NZ, I F'RT3 , KRF'M , NST AT , IFLG, I FLG 1 , THETA, SCALE, ISCNT 

207 C 

208 NS J=4*NSL+NSA ( 1 ) +NSA ( 2 ) -* NSA (3) +NSA (4) 

209 NNSA=4*NSL+MAX0(NSA(1> ,NSA(2) ,NSA(3> ,NSA(4> ) 

210 C 

211 WRITE ( 1 ) (ZETAC(I) , 1 = 1 , NCMOD) , (NF'T(J) , (FG ( I , J ) , SPEED ( I , J ) , 

212 + 1 = 1, MAXF'TS) ,J=1, NFGEN) . ( (JFUN(I,J) , 1 = 1, NSJ > , J = l,2> , 

213 + ( (S(I, J) , DMF' ( I , J ) . (NRCd.K, J) ,K*1,2> , I = 1.NNSA) ,J = 1 ,4) , 

214 + ( I ROT ( I ) , 1=1, NROT) , (ICASE(I) , 1=1, NCASE) , (ZRF'M(I) , 

215 4 1 = 1, KRF'M ), (X(I),I = i, NST AT ) 

216 C 

217 C UPDATE LOG FILE 

218 C 

219 WR I TE ( 7 , REC=NRECS4 1 ) NDATE , NT I ME , T 1 TL , F IN , FOUT , NGYRO , NCMOD , NRMOD , 

220 4 NCDOF, NRDOF, NCASE.NROT, KRF'M, NFGEN, MAXF'TS, NSA, 

22 1 4 NSL , NSJ , NNSA , I F'LTF , I PRT2 , I PRT3 , I PRT , KCRT , 

222 4 NXTC, NI.NSTAT. IFLG, IF'CNT, ISCNT 

223 NREC3=NRECS4l 

224 C 

225 C RERUN? 

226 C 

227 GOTO ( 15, 20, 20) NXTC 

228 CALL QCSI Z (0,0) 

229 C • 

230 C CLOSE FILES 

231 C 

232 CLOSE ( 1 ) 

233 CLOSE (2) 

234 CLOSE (7) 

235 C 

236 C FORMAT STATEMENTS 
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8001 FORMAT < //2X , A, 1X\) 

8002 FORMAT <’ COPY ’ , A, ' +LI ST2+LIST3’ / ’ DEL LIST2’/’DEL L I ST3 7 ) 

8004 FORMAT (lHl,5</> , 2X , 78 < 1H* ) , 3 (/7H *****, 68X , 5H*****/7H ***•*«, 1BX, 

+ A, 19X,5H*****> /7H *****, 6BX, 5H*****/2X, 78<1H*) ) 

8005 FORMAT < 2X , 5HDATE: . 13, 1H/, 12, 1H/, 14.42X. 11HBEGXN TIME: , 13, 

+ 2 ( 1H: , 12) , 6< /> > 

9000 FORMAT (72A) 

C 

END 


Name 

T ype 

OFF set P 

Cl ass 


AC 

REAL 

1 2886 



AR 

REAL 

15686 



BANNR 

CHAR* 31 

12792 



Cl 

CHAR* 1 

1238 



C;2 

CHAR* 1 

1252 



DMF' 

REAL 

9272 



DRPM 

REAL 

188 

/DATA 

/ 

FG 

REAL 

1 0872 



FHI6H 

REAL 

194 

/DATA 

/ 

FIN 

CHAR* 14 

23070 



FLOW 

REAL 

198 

/DATA 

/ 

FOUT 

CHAR* 1 4 

1238 



G 

REAL 

0 

/MEM 

/ 

GEAR 

RE:.AL*8 

6504 



I 

INTEGER*2 

23062 



I CASE 

INTEGER*2 

9232 



IF LB 

I NTEGER*2 

204 

/DATA 

! 

IFLS1 

INTEGER*2 

206 

/DATA 

/ 

I PONT 

INTEGER* 2 

218 

/DATA 

/ 

I PL TF 

INTEGER*2 

172 

/DATA 

/ 

IF'RT 

INTEGER*2 

178 

/DATA 

/ 

IPRT2 

INTEGER* 2 

174 

/DATA 

/ 

IPRT3 

INTEGER*!' 

176 

/DATA 

/ 

I ROT 

INTEGER*2 

9192 



IBCNT 

INTEGER* 2 

220 

/DATA 

/ 

J 

INTEGER* 2 

23086 



JF'UN 

INTEGER*!' 

8552 



k 

INTEGER*! 

23104 



KCRT 

INTEGER*! 1 

180 

/DATA 

/ 

KRF'M 

INTEGER*! 

158 

/DATA 

/ 

LCDQF 

INTEGER*! 

23058 



LCMOD 

INTEGER*! 

23046 



LG 

INTEGER*! 

23060 



L.OGFIL 

CHAR* 14 

1252 



LPT 

INTEGER*! 

23054 



L.RDOF 

INTEGER*! 

23056 



LRMOD 

INTEGER*! 

23048 



LSA 

INTEGER*! 

23050 



LSJ 

INTEGER*! 

23052 



MAXO 



INTRINSIC 

MAXF'TS 

INTEGER*! 

216 

/DATA 

/ 

NCASE 

INTEGER*! 

154 

/DATA 

/ 

NCDOF 

INTEGER*. 2 

6 

/DATA 

/ 

NCMOD 

INTEGER*2 

2 

/DATA 

/ 

NDATE 

INTEGER*? 

4850 



NFGEN 

INTEGER*? 

160 

/DATA 

/ 
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NGYRQ 

INTEGER*? 

0 

/DATA 

/ 

NI 

INTEGER* 2 

192 

/ DATA 

/ 

NNSA 

INTEGER*? 

23102 



NPT 

INTEGER*? 

4856 



NRC 

INTEGER*? 

4904 



NRDOF 

I NTEGER*2 

■ 8 

/DATA 

/ 

NRECS 

INTEGER*? 

23084 



NRMOD 

INTEGER*? 

4 

/DATA 

/ 

NROT 

INTEGER*? 

156 

/DATA 

/ 

NS A 

INTEGER*? . 

162 

/DATA 

/ 

NS J 

INTEGER*? 

23100 



NSL 

INTEGER*? 

170 

/DATA 

/ 

N3TAT 

INTEGER*? 

202 

/DATA 

/ 

NT I ME 

INTEGER*? 

4842 



NXTC 

INTEGER*? 

182 

/DATA 

/ 

NZ 

INTEGER*? 

1 266 



PRN 

LOGICAL*? 

23068 



RPM 1 

REAL 

184 

/DATA 

/ 

RZ 

REAL 

1274 



RZ1 

REAL 

1298 



S 

REAL 

3242 



SCALE 

REAL 

212 

/DATA 

/ 

SPEED 

REAL 

1322 



THETA 

REAL 

20B 

/DATA 

/ 

TITL 

CHAR* 1 

10 

/DATA 

/ 

WC 

REAL 

1182 



WK 

REAL*S 

'P 



WR 

REAL 

922 



X 

REAL 

1 142 



ZETAC 

REAL 

986 



2 RPM 

REAL 

1042 



Name 

T ypa 

Size 

Class 



DATA 

222 

COMMON 

roRToi 


SUBROUTINE 

FORT 02 


SUBROUTINE 

MEM 

52900 

COMMON 

PRERST 


PROGRAM 

GBORD 


SUBROUTINE 

OCLEAR 


SUBROUTINE 

QCMOV 


SUBROUTINE 

iSCS I Z 


SUBROUTINE 

(SDATE 


SUBROUTINE 

OT I ME 


SUBROUTINE 
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*F0RT01 . FOR*********************************************************-**** 
C 

C SUBROUTINE F0RT01 
C 


C*** ****************************************** ************ ******* ******* 

c 

C SUBROUTINES UTILIZED IN F0RT01 ARE CALLED 

C IN THE FOLLOWING ORDER: 


C 

C R 1 READ THE MODE SHAPES AND NATURAL FREQUENCIES 

C 

C TRANS TRANSFORM THE GYROSCOPIC ADDITIONS 

C INTO NORMAL CQQF:DINATES 

C 


C***** *********************************************************** ******* 
^STORAGE: 2 
C 

SUBROUT I NE FORTO 1 < AC , AR , G , LG , GB AR , LCDOF , LRDOF , LRMDD , WK , WC , WR ) 

C 

CHARACTER TITL <72,2) , TAPE4* 1 4 , L I NE 1 *72 , LI NE2*72 
C 


c 

c 

c 


EQUIVALENCE <TITL, LINED 

DIMENSION AC (LCDOF, 1) , AR (LRDOF, 1 ) , WC ( 1 ) , WR ( 1 ) , 6 (LG, 1 ) 
REAL.*8 GBAR (LRMOD, 1 > , WK ( 1 ) 


COMMON /DAT A/NGYRO . NCMOD , NRMOD , NCDOF , NRDOF , T I TL , NCASE , NROT , 

+ KRF'M, NFGEN, NSA (4) ,NSL, IF'LTF, IPRT2, IPRT3, IPRT, 

+ KCRT, NXTC, RF'Ml , DRF'M, N I , FHIGH, FLOW, NSTAT, IFLG. 

+ IFLG'l, THETA, SCALE, MAXPTS, IPCNT, ISCNT 

c 

C PROBLEM HEADER 

C 


WR I TE < 6 , 8002 ) I PCNT 
WRITE (*, 8002) IPCNT 
C 

C READ TITLE 1 AND FIRST INPUT DATA LINE. 

C SKIP THROUGH ANY PREDEEDING JCL. 

C 

READ (5, 9000, END=80) LINE2 
C 

10 LINE1=LINE2 

READ (5,9000, END=80) LINE2 

READ ( L I NE2 , 800 1 , ERR= 1 0 ) NRDOF , NRMOD , NCDOF , NCMOD , NGYRO , NRT AP , NCTAP , 
+ GRAV, ML I ST 

C 


WRITE (6,6) <TITL(I, 1) , 1=1,72) 

WR I TE ( 6 , 8000 ) NRDOF , NRMOD , NCDOF , NCMOD , NR TAP , NCTAP , NGYRO , GRAV 
WR I TE ( *, 6 ) (TITLd, 1) , 1 = 1,72) 

WR I TE < * , 8000 ) NRDOF , NRMOD , NCDOF , NCMOD , NRTAF' , NCTAP , NGYRO , GRAV 
C 

C GET FILE NAMES FOR MODAL DATA 

C 

IF (NRTAF'. NE. 0) THEN 

WRITE (*,8003) ’ENTER THE ROTOR MODE SHAPE FILE NAME:’ 

READ (*,9000) TAPE4 

OPEN < 4 , F I LE=TAPE4 , STATUS= ’ OLD ’ ) 

END IF 
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D Line# 
60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

1 81 

2 82 

83 

84 

85 

86 

87 

88 

89 

90 

1 91 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

1 03 

104 

105 

106 

107 

108 
109 

no 
1 1 1 
1 12 
113 


1 

C 


C 

D 

C 

C 

C 

C 

c 

c 


c 

c~ 

c 


30 


c 

c 


c 


/O 

c 

c 


c: 

c 

c 

6 

8000 


8001 

8002 

8003 

9000 

C 
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IF (NCTAP. NE.O) THEN 

WRITE!*, 8003) ’ENTER THE CASING MODE SHAPE FILE NAME:’ 

READ ( * , 9000 ) TAPE4 

OPEN (3, F ILE=TAPE4 , STATUS= ’ OLD’ > 

END IF 

-READ AND PRINT ROTOR AND CASING MODAL 
MATRICES, NATURAL FREQUENCIES, AND 
GYROSCOPIC ELEMENTS 

CALL R1 (AC, AR,G, LG, LCDOF , LRDOF , NCTAP , NRTAP, WC, WR, GRAV, ML I ST, TAPE4 '< 

-CLOSE THE MODAL DATA FILES 

IF (NRTAP. NE. 0) CLOSE (4) 

IF (NCTAP. NE.O) CLOSE (3) 

-ZERO THE GEAR MATRIX 

DO 30 1=1, NRMOD 
DO 30 J=l, NRMOD 
GBARd, J)=0.0D0 
IF (NGYRO. EQ. 0) RETURN 

-FORM MODAL GYROSCOPIC MATRIX GBAR 


CALL TRANS ( AR , LRDOF , NRDOF , NRMOD , G , LG , AR , LRDOF , NRDOF , NRMOD , 
+ GBAR, LRMOD, WK) 

DO 70 I = 1, NRMOD 
DO 70 J = 1, NRMOD 
GBARd, J> = GBARd, J) / GRAV 

RETURN 


WRITE (*,*) ’ERROR READING INPUT FILE’ 
STOP 


-FORMAT STATEMENTS 
FORMAT (2X, 72A///> 

FORMAT (5 X, ’NO. OF ROTOR DOF =’ , I 4, 5X , ’ NO. OF ROTOR MODES =’,14// 
+ 5 X , ’ NO . OF CASING DOF =’ , 14 , 5X , ’ NO . OF CASING MODES =’,I4// 

+ 5X. ’ROTOR TAPE CODE =’, 14 , 5X ,’ CASING TAPE CODE =’,14// 

+ 5 X , ’ NO . OF GYROSCOPIC ADDITIONS =’,I4// 

+ 5X, ’ ACCELERATION OF GRAVITY =’,F8.2) 

FORMAT (BN., 716, E12. 6, 16) 

FORMAT (////5X, 4 (’* ’ ) , ’ M 0 D A L INPUT SECTION 

+ 12 , 4 (’ *’>///> 

FORMAT <///2X, A, 2X\) 

FORMAT (72A) 

END 


Name 

T vpe 

Offset 

P Class 

AC 

REAL 

0 

* 

AR 

REAL 

4 

* 
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D Line# 

1 7 
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DRPM 

REAL 

188 


/DATA 

/ 

FHIGH 

REAL 

194 


/DATA 

/ 

FLOW 

REAL 

198 


/DATA 

/ 

6 

REAL 

B 

* 



GEAR 

REAL*8 

16 

* 



GRAV 

REAL 

78 




I 

INTEGER*! 

84 




IFLG 

INTEGER*! 

204 


/DATA 

/ 

IFlGI 

INTEGER*! 

!06 


/DATA 

/ 

IF'CNT 

INTEGER*! 

!ie 


/DATA 

/ 

IPLTF 

INTEGER*! 

172 


/DATA 

/ 

I PRT 

INTEGER*! 

178 


/DATA 

/ 

IPRT2 

I NTEGER*2 

174 


/DATA 

/ 

1PRT3 

INTEGER*! 

176 


/DATA 

/ 

ISCNT 

INTEGER*2 

220 


/DATA 

/ 

J 

INTEGER* 2 

108 




KCRT 

INTEGER*? 

180 


/DATA 

/ 

KRPM 

INTEGER*2 

158 


/DATA 

/ 

LCDQF 

INTEGER*2 

20 

* 



L.G 

INTEGER* 2 

12 

* 



L.INE1 

CHAR*72 

10 


/DATA 

/ 

LINE2 

CHAR*72 





L.RDOF 

I NTEGER*2 

24 

* 



LRMOD 

INTEGER*2 

28 

* 



MAXPTS 

I NTEGER*2 

216 


/DATA 

/ 

ML.IST 

INTEGER*2 

82 




NCASE 

INTEGER*2 

154 


/DATA 

/ 

NCDGF 

INTEGER*2 

6 


/DATA 

/ 

NCMOD 

INTEGER*2 

9 • 


/DATA 

/ 

NCTAP 

I NTEGER*2 

76 




NFGEN 

INTEGER*2 

160 


/DATA 

/ 

NGVRQ 

INTEGER*!’ 

0 


/DATA 

/ 

NI 

INTEGER*! 

192 


/DATA 

/ 

NRDDF 

INTEGER*! 

8 


/DATA 

/ 

NRMOD 

INTEGER*! 

4 


/DATA 

/ 

NRQT 

INTEGER*! 

156 


/DATA 

/ 

NRTAP 

INTEGER*! 

74 




NSA 

INTEGER*! 

162 


/DATA 

/ 

N3L 

INTEGER*! 

170 


/DATA 

/ 

NSTAT 

INTEGER*!’ 

202 


/DATA 

/ 

NXTC 

INTEGER*! 

182 


/DATA 

/ 

RPM1 

REAL 

184 


/DATA 

/ 

SCALE 

REAL 

212 


/DATA 

/ 

TAPE4 • 

CHAR* 14 

88 




THETA 

REAL 

208 


/DATA 

/ 

TITL 

CHAR* 1 

10 


/DATA 

/ 

WC 

REAL 

36 

* 



UK 

REAL*B 

32 

* 



WR 

REAL 

40 

* 



114 

*R1 . FOR************************************************************ ***** 

1 IS 

i C 





116 

i C 

R1 READS 

! AND WRITES THE MODAL INPUT DATA 

117 

' C 





118 

c************** ************************************************* ******** 

1 19 C 





120 

1 SUBROUTINE R1(AC,AR, 

G, LG, LCDOF , LRDOF, NCTAP, NRTAP, WC, WR, GRAV, ML I ST, 

121 




LINED 
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D Line# 

1 

7 

122 

C 


123 


DIMENSION 

124 

C 


1 25 


CHARACTER 

126 

c 


127 


COMMON 

128 


+ 

129 


+ 

1 30 


+ 
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LINE1*14, TITL (7: 


:>*i 


/ DATA/NG YRO , NCMOD . NRMOD , NCDOF , NRDDF .TITL. NCASE , NROT , 
KRPM, NFGEN, NSA ( 4 ) , NSL, IPLTF, IPRT2, IPRT3, IPRT, 
KCRT, NXTC, RF'Ml . DRF'M, NI , FHIGH, FLOW, NSTAT, 1 FLG , 
IFLG1, THETA, SCALE, MAXPTS, IF'CNT, ISCNT 


-READ AND WRITE THE MODAL MATRICES 
IF (MLIST. EQ. 0) WRITE (6, 5) 

CALL MODAL (AR.LRDOF , NRDOF, NRMOD, 4, WR, GRAV,NRTAP, MLIST, LINE1 ) 
IF (MLIST. EQ. O) WRITE (6, 10) 

CALL MODAL ( AC , LCDOF , NCDOF , NCMDD , 3 , WC , GRAV , NCT AP , ML I ST , L I NE 1 ) 

-READ AND WRITE THE NATURAL FREQUENCIES 

GOTO (710, 71 1 ) NR'TAF' 

READ (5,6) (WR (I > , 1=1 , NRMOD) 

GO TO 711 


131 C 

132 C- 
1.33 C 

134 

135 

136 C 

137 

138 

139 C 

140 C- 

141 C 

142 

143 C 

144 

145 

146 C 

147 710 READ <4 , ’ ( A) ’ > LINE1 

148 I F ( L I NE 1 . NE . ’ FREQIJENC IES’ > GOTO 710 

149 READ (4,6) (WR ( I ) , 1=1 , NRMOD) 

150 C 

151 711 CONTINUE 

152 WRITE (6, 24) 

153 WRITE (6, 305) 

154 C 

155 DO 320 I = 1, NRMOD 

156 320 WRITE (6. 80) WF; (I ) , WR (I ) /6. 2831853 

157 C 

153 GOTO (720, 721) NCTAP 

159 C 

160 READ (5, 6) (WC ( I ) , 1=1 , NCMOD) 

161 GOTO 721 

162 C 

163 720 READ <3, ’ (A) ’ ) LINE1 

164 IF (LINE1.NE. 'FREQUENCIES’ > GOTO 720 

165 READ (3, 6) (WC ( I ) , 1=1 , NCMOD) 

166 C 


1 


167 

168 

169 

170 

171 

172 

1 73 

174 

175 

176 

177 

178 

179 

1 80 


721 CONTINUE 

WRITE <6, 25) 

WRITE (6, 305) 

C 

DO 330 I = 1, NCMOD 

330 WRITE (6. 80) WC ( I ), WC ( I ) /6. 2831.853 
IF (NGVRO.EG.O) RETURN 

C 

C ZERO THE GYROSCOPIC MATRIX 

C 

DO 340 1=1, NRDOF 
DO 340 J=l, NRDOF 
340 G(I,J)=0.0 
C 
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D Line# 1 
181 C- 
1B2 C 
183 
1B4 C 
185 

1 186 
1 187 

188 C 

189 C 

190 C 

191 

192 

193 

194 

195 

196 

197 

198 

199 



WRITE <6, 27) 

DO 40 IN=1 , NGYRO, 2 

READ (5, 30) I,j,G<I.J),K,L,G<K,L> 

40 WRITE (6, 26) I , J , G < I , J > , K, L, G <K, L> 

FORMAT STATEMENTS 

5 FORMAT ( 1H1//5X, ’ * * * ROTOR GROUP MODAL MATRIX * * *’/> 

6 FORMAT ( BN , 6E 1 2 . 6 > 

10 FORMAT ( 1H1 / /5X, ' * * * CASING GROUP MODAL MATRIX * * *'/) 

24 FORMAT (1H1//5X, ’ * * * ROTOR GROUP NATURAL FREQUENCIES - WR 
1 *•’,//> 

25 FORMAT ( // //5X , ' * * * CASING GROUP NATURAL FREQUENCIES - WC 

1 *% //> 

26 FORMAT (2(218, 1P1E20. 8, IX) ) 

27 FDRMAT (1H1//5X, ’ * * * GYROSCOPIC MATRIX ELEMENTS * * *’/// 


200 1 2 ( 5X , ' ROW’ , 5X , ’ COL’ , 10X , ' VALUE’ , 6X ) / > 

201 30 FORMAT <BN, 216, E12. 8) 

202 80 FORMAT ( 10X , 1PE15. 5, 7X , 1PE15. 5) 

203 305 FORMAT ( 16X, ’RAD/SEC’ , 16X, ’HERTZ' , /) 

204 C 

205 END 


Name 

Type 

Of -f set 

P 

Class 


AC 

REAL 

0 

* 



AR 

REAL 

4 

* 



DRPM 

REAL 

188 


/DATA 

/ 

FHIGH 

REAL 

194 


/DATA 

/ 

FLOW 

REAL 

19E! 


/DATA 

/ 

G 

REAL 

8 

* 



GRAY 

REAL 

40 

* 



I 

INTEGER*! 

622 




IFLG 

INTEGERS 

204 


/DATA 

/ 

IFLG1 

INTEGER*! 

206 


/DATA 

/ 

IN 

INTEGERS 

652 




I F'CNT 

INTEGER*! 

218 


/DATA 

/ 

IPL.TF 

INTEGERS 2 

172 


/DATA. 

/ 

IPRT 

INTEGER*! 

178 


/DATA 

/ 

IPRT2 

INTEGER*!' 

174 


/DATA 

/ 

IPRT3 

I NTEGER*2 

176 


/DATA 

/ 

ISCNT 

INTEGER*! 

220 


/DATA ' 

/ 

J 

INTEGER*! 

644 




K 

INTEGER*! 

660 




KCRT 

INTEGER*! 

180 


/DATA 

/ 

KRPM 

INTEGER*! 

158 


/DATA 

. / 

L. 

INTEGER*! 

662 




LCDOF 

I NTESER*2 

16 

Jfc 



LG 

INTEGER*! 

12 

* 



L I NE 1 

CHAR* 14 

48 

* 



LRDOF 

INTEGER*! 

20 

* 



MAXPTS 

INTEGER*! 

216 


/DATA 

/ 

ML I ST 

INTEGER*! 

44 

* 



NCASE 

INTEGER*! 

154 


/DATA 

/ 

NCDOF 

INTEGER*! 

6 


/DATA 

/ 

NCMQD 

INTEGER*! 

2 


/DATA 

/ 



* * 
* * 
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NCTAP 

INTEGER* 2 

24 

* 




NFGEN 

INTEGER*2 

160 


/DATA 

/ 


NGYRO 

INTEGER*2 

0 


/DATA 

/ 


N1 

1 NTEGER*2 

192 


/DATA 

/ 


NRDOF 

INTEGER*2 

8 


/DATA 

/ 


NRMOD 

INTEGER*2 

4 


/DATA 

/ 


NROT 

I NTEGER*2 

156 


/DATA 

/ 


NRTAP 

1NTEGER*2 

28 

* 




NSA 

INTEGER*2 

162 


/DATA 

/ 


NSL. 

1NTEGER*2 

170 


/DATA 

/ 


NSTAT 

I NTEGER*2 

202 


/DATA 

/ 


NXTC 

INTEGER*2 

1 82 


/DATA 

/ 


C- tvt 1 

F(EAL 

1 84 


/DATA 

/ 


SCALE 

REAL 

212 


/DATA 

/ 


THETA 

REAL 

208 


/DATA 

/ 


TITL 

CHAR* 1 

10 


/DATA 

/ 


WC 

REAL 


* 




WR 

REAL 

36 

* 





1 


1 

l 


206 

207 

208 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

097 

224 

*71 ^ cr 

226 
227 
2 28 
229 
2-30 
23 1 



238 

239 


♦ MODAL. FOR********************************************** *************** * 


C 

C MODAL READS MODAL INFORMATION, I. E. MODE SHAPES, 

0 FROM STARDYNE TAPE4. 

C 

C ************************************************************* ******** 

c 

SUBROUTINE MODAL (AR, LRDOF , NRDOF , NRMOD , NDEV, WR, GRAV, NRTAP, ML I ST, 

+ LINED 

C 

CHARACTER I*4.LINE1*12 
C 

DIMENSION AR (LRDOF, 1) ,B<2) , WR ( 1 ) 

C 

SOTO < 400 , 600 , 407 ) NRTAP 
C 

DO 300 1=1, NRMOD 

300 READ (5,6) ( AR ( J , I ) , J=1 , NRDOF) 

SO TO 420 
C 

400 RE AD < NDEV , ’ ( A > ’ > LINE! 

■ IFILINEl.NE. ’ V956B MODES’) GOTO 400 
C 


DO 401 1=1, NRMOD 
READ (NDEV, ' (/) ' ) 

401 READ (NDEV, 6 ) ( AR ( J , I ) , J= 1 , NRDOF) 

GO TO 420 

407 READ (NDEV, 6) << AR (J , I ), J=1 , NRDOF ), 1=1 , NRMOD ) 

GO TO 420 

600 READ (NDEV, •’ (A)') T 

I F ( T .NE. ’ D I SP ’ > GO TO 600 


240 READ (NDEV, 1 10) MODE, FRED, GENWT 

241 CF= 1 . O/SQRT (GENWT/GRAV) 

242 WR (MODE) = FRED * 6.2831853 

243 C 

244 15 READ (NDEV, 120) J,I,B 


A 
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D 


Li ne# 

245 

246 

247 
24S 

249 

250 

251 


254 


ncrc 



258 

259 

260 

1 261 
1 262 
1 263 

1 264 

1 265 

1 266 
267 
26S 

269 

270 

271 

272 

273 
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IF ( J .LT. 1) GO TO 20 
ID0F=4* ( J-l ) +1 
IF ( I .EQ. 4) ID0F=IDGF-1 
AR ( I DOF , MODE ) =B ( 1 ) *CF 
AR ( IDOF + 1 , MODE) =B (2) *CF 
GO TO 15 
C 

20 IF (MODE .NE. NRMOD) GO TO 600 
C 

420 I F < ML I ST. NE. 0 ) RETURN 
C 

C LINE COUNTER 

r 

LCOUNT =4 
C 

DO 605 1=1, NRMOD 

LC0UNT=LC0UNT+NRD0F/5. +4. 9 
IF (LCOUNT. GT. 63) THEN 
WRITE (6, ’ ( 1H1 ) ’ > 

LCOUNT =NRDQF/5 . +5. 9 
END IF 

605 WRITE (6,8) I , ( AR < J , I ) , J=1 , NRDOF) 

C 

6 FORMAT ( BN , 6E 12.6) 

B FORMAT (//5X, ’MODE NO. ’ , 16// (3X. 1P5E15. 5) ) 

1 1 0 FORMAT ( 1 3 , F 1 7 . 0 , F 1 3 . 0 ) 

120 FORMAT < 2X , 19. 1 1 , 20X , 2F20. 0) 

C 

END 


Name 

Type 

Offset 

P 

AR 

REAL 

0 

* 

B 

REAL 

1140 


CF 

REAL 

1182 


FREO 

REAL 

1174 


GENWT 

REAL 

1178 


GRAY 

REAL 

24 

* 

I 

INTEGER*2 

1148 


I DOF 

INTEGER* 2 

1186 


J 

INTEGER*2 

1156 


LCOUNT 

INTEGER* 2 

1138 


LI NE 1 

CHAR* 12 

36 

* 

LRDOF 

INTEGER*2 

4 

* 

ML 1ST 

I NTEGER*2 

32 

* 

MODE 

INTEGER*2 

1172 


NDEV 

I NTEGER*2 

16 

*- 

NRDOF 

I NTEGER*2 

a 

* 

NRMOD 

INTEGER*2 

12 

* 

NRTAP 

INTEGER*2 

28 

* 

SORT 

T 

CHAR* 4 

1168 


WR 

REAL 

20 

* 


Cl ass 


INTRINSIC 


274 *TRANS. FOR*** ********************************************** ************* 

275 C 

276 C SUBROUTINE TRANS 

277 C 
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278 C *■■**•** *********** -a*************** *************************************** 

279 C 

MATRIX TRANSFORMATION DEFINED AS: 


280 C 

281 C 

282 C 

283 £ 

284 C 

285 C 

286 C 

287 C 

288 C 

289 C 

290 C 

291 C 

292 C 

293 C 

294 C 

295 C 

296 C 

297 C 

298 C 

299 C 

300 C 

30 1 C 

302 C 

303 C 

304 C 

305 C 

306 C 

307 C 

308 C 

309 C 

3 1 0 C 

311 C 

312 C 


PURPOSE : 


LATEST REV: 

usage: 

ARGUMENTS: 


T 

CD! = CD1 - CAI * CGI * CCI 


MARCH 21, 1984 

CALL TRANS ( A , LRA , NRA , NCA , G , LRG , C , LRC , NRC , NCC , 

+ u ? l_Rl) , Wl : -. ) 

A - MATRIX TO BE TRANSPOSED AND USET TO 

PRE-MULT I PLY MATRIX B. 

LRA - ROW DIMENSION OF MATRIX A EXACTLY AS 
DEFINED IN CALLING PROGRAM. 

NRA - ROW ORDER OF MATRIX A (NUMBER OF ROWS 
USED) . 

NCA - COLUMN ORDER OF MATRIX A (NUMBER OF 
COLUMNS USED). 

G - THE MATRIX OPERATED ON. 

LRG - ROW DIMENSION OF MATRIX G EXACTLY AS 

DEFINED IN CALLING PROGRAM. 

C - MATRIX C TO BE USED TO POST-MULT I PLY 

MATRIX B. 

LRC - ROW DIMENSION OF MATRIX C EXACTLY AS 
DEFINED IN CALLING PROGRAM. 

NRC - ROW ORDER OF MATRIX C. 

NCC - COLUMN ORDER OF MATRIX' C. 

D - MATRIX D. NOTE: D IS DOUBLE PRECISION. 

LRD - ROW DIMENSION OF MATRIX D EXACTLY AS 

DEFINED IN CALLING PROGRAM. 

WK - WORK AREA DIMENSIONED TO AT LEAST NRA. 

NOTE: WK IS DOUBLE PRECISION. 


313 C 

314 C * *****#■»•* ****** «••» ■*■*•****■«•**** ************* **************** ##*##****** *#+ 

315 C 

316 SUBROUT INE TR ANS < A , LRA , NRA , NCA , G , LRG , C , LRC , NRC , NCC , D , LRD , WK ) 

317 C 

318 

319 C 

320 

321 C 


324 

326 

327 C 


>1 C 


50 


DIMENSION A (LRA, 1 ) ,C(LRC, 1) , G (LRG, 1) 

REALMS D ( LRD , 1 ) , WK ( 1 ) 

DO 1 00 1 = 1, NCC 
DC) 50 J = 1 , NRA 
WK ( J ) = O.ODO 
DO 50 K. = 1 , NRC 
WK ( J ) = WK ( J ) + G(J,K)*C(K,I) 


DO 1 00 L = i , NCA 
DO 1 00 M = 1 , NRA 

100 D ( L , I ) = D ( L , I ) - A ( M , L ) *WK ( M ) 
END 


Name 

A 


Type 

REAL 


Offset. P Class 
O * 
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D Line# 1 


c 

REAL 

D 

REAL*3 

G 

REAL 

I 

INTEGERS 

J 

INTEG£R*2 

K 

INTEGER*2 

L 

INTEGER*2 

LRA 

INTEGER*2 

LRC 

INTEGER*2 

LRD 

INTE3ER*2 

LRG 

INTEGER*2 

M 

INTEGER*2 

NCA 

INTEGER*2 

NCC 

INTEGER*2 

NRA 

INTEGER* 2 

NRC 

INTEGER*2 

WK 

REAL *8 

Name 

Type 


DATA 
FORT 0 1 
MODAL 
R1 

TRANS 


24 * 
40 * 
16 * 
1 320 
1328 
1336 
1344 
4 * 
28 * 
44 * 
20 * 
1352 
12 * 
36 * 
8 * 
32 * 
43 * 


Size Class 

222 COMMON 

SUBROUTINE 

SUBROUTINE 

SUBROUTINE 

SUBROUTINE 



r 


Pass One No Errors Detected 
332 Source Lines 
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4 

5 

6 

7 

8 
9 

10 
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X X- 

13 

14 

15 

16 

17 

18 

19 

20 
21 



26 

27 

28 

29 

30 

31 

-r-~t 


34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 
43 

49 

50 

5 1 


54 

55 

56 

57 

58 
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*FQRT02. FOR**************** #*###**##*******#***•** *********** #*■**■»* ****** 


C 

C SUBROUTINE FORT 02 

C 

C********************************************************************** * 

c 

C SUBROUTINES UTILIZED IN F0RT02 ARE CALLED 

C IN THE FOLLOWING ORDER: 


C 

C ADDS READ INTERGROUP ADDITIONS 

C 

C ADDM READ INTRAGF:OUP ADDITIONS 

C 

C OUTAB OUTPUT ALL ADDITIONS 

C 


C R3 READ PLOTTING DATA 

C 

C*********** ******** *■*•*•* **■***■*•#**■* ************ ********-****************** 

c 

^STORAGE: 2 
C 

SUBROUTINE F0RT02 ( ZETAC, FG, SPEED, NPT, NRC, S, DMP, JFUN, LPT , LSA, LSJ , 

+ ZRF'M, ICASE, I ROT, X,NZ,RZ,RZ1 ) 


C 

C 


c 


c 


c 

c- 

c 


CHARACTER* 1 
INTEGER 


TITL (72,2), TYTL (48) 

JFUN (LSJ, 1 ) , NPT(l) , NRC (LSA, 2, 1> , NSA (4) , NZ (4) , ICASE ( 1 ) , 
I ROT ( 1 ) 


DIMENSION DMP (LSA, 1) , FG (LPT, 1) ,S(LSA, 1) , SPEED (LPT, 1) , ZETAC (1) , 
+ ZRPM(1> , XUO) ,RZ (6) ,RZ1 (6) 

COMMON /DATA/NGYRO, NCMOD, NRMOD , NCDOF , NRDOF . T I TL , NCASE , NROT , 

+ KRPM, NFGEN, NSA, NSL, IF'LTF, IFRT2, IPRT3, IPRT, KCRT, 

+ NXTC, RPM1 , DRPM, N I , FHIGH, FLOW, NST AT, IFLG, IFLG1, 

+ . THETA, SCALE, MAXF'TS, IPCNT, ISCNT 


READ THE SUBCASE TITLE 

IF (NXTC. NE. 3) READ(5,5) (T ITL ( I , 2) , 1= 1 , 72) 


C 


C SUBCASE HEADER 

C 

WRITE (6, 19) IPCNT, ISCNT, TITL 
WRITE <*, 19) IPCNT, ISCNT, TITL 

C 

C READ NUMBERS OF MATRIX ADDITIONS, PRINT/PLOT FLAGS, 

C NEXT CASE FLAG, AND NUMBER OF FUNCTION GENERATORS 

C 

READ (5, 15) NSA, NSL, IPRT, KCRT, NXTC, NFGEN 
WR ITE (6, 16) (I, NSA (I), 1=1,4) 

WRITE (6, 17) NSL, NFGEN, IPRT, NXTC 
WRITE (*, 16) (I,NSA(I), 1=1,4) 

WRITE (*,17) NSL, NFGEN, IPRT, NXTC 
C 

C READ BEGINNING RPM, RPM INCREMENT, 

C AND TOTAL NUMBER OF STEPS 

C 

READ (5, 18) RPM1 , DRPM, NI 
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60 WRITE <6, 40) RPM1, DRF'M, NI 

61 WRITE (*,40) RPM1 , DRF'M, NI 

62 C 

63 C READ CASING MODAL DAMPING DATA 

64 C 

65 WRITE (6, 100) 

66 READ (5, 200) (ZETAC ( I ) , 1=1 , NCMOD) 

67 WRITE (6, 300) ( ZETAC ( I ), 1=1 , NCMOD) 

68 C 

69 C READ FUNCTION GENERATORS 

70 C 

71 WRITE (6, 50) 

72 MAXPTS=0 

73 C 

74 C LINE COUNTER 

75 C 

76 LC0UNT=6 

77 DO 130 I = 1 , NF GEN 

1 78 READ (5, 10) NPT ( I ) , I PLT , TYTL 

1 79 READ <5, 200) (SPEED < J , I ) , FG < J , I ) , J=1 , NPT < I > ) 

1 80 MAXPTS=MAXO ( MAXPTS , NF’T ( I ) ) 

1 81 LCOUNT=LCOUNT+NFT ( I > +5 

1 82 IF (LCOUNT. GT. 63) THEN 

1 83 WRITE (6, ’ ( 1H1 ) ’ ) 

1 84 ' LCOUNT =6+NPT ( I ) 

1 85 E ND I F 

1 86 WRITE (6, 60) I, TYTL 

1 87 WRITE (6, 75) (SPEED ( J , I ) , FG ( J , I ) , J=1 , NPT ( I ) ) 

1 88 130 IFdPLT.EQ. 1) WRITE (2) I , TYTL, TITL, NPT < I > , 

1 89 + (SPEED (J, I) ,FG(J,li , J=1,NPT(I) ) 

90 C 

91 C WRITE END-OF-CASE RECORD ON FUNCTION GEN FILE 

92 C . 

93 WRITE (2) -999, TYTL, TITL. 1 , SPEED ( 1 , 1) , FG < 1 , 1 ) 

94 C 

95 C READ AND PRINT MATRIX ADDITIONS 

96 C 

97 WRITE (6, 22) 

98 IF (N3L . NE . O) CALL ADDS (DMP, JFUN, LSA, LSJ , NRC , S> 

99 IF ( (NSA ( 1 > +NSA (2) +NSA (3) +NSA (4) ) . NE. 0) CALL ADDM ( DMP , J FUN , 

100 + LSA , LS J , NRC , S ) 

101 CALL OUTABCDMP, JFUN, LSA , LSJ , NRC, S ) 

102 C 

103 C READ THE REMAINDER OF THE INPUT FILE 

104 C 

105 CALL R3 ( ZRF'M, I CASE, I ROT, X,NZ,RZ,RZ1) 

106 C 

107 RETURN 

108 C 

109 C FORMAT STATEMENTS 

110 C 

111 5 FORMAT (72A) 

112 10 FORMAT (BN, 21 12, 48A) 

113 15 FORMAT (BN, 1016) 

114 16 FORMAT <5X, ’NUMBER OF GENERAL MATRIX ADDITIONS: ’//< 10X, ' PARTITION’ , 

115 + 12,’ =’,14,1 OX,’ PARTITION’ , 12, ' =’ , 14) ) 

116 17 FORMAT </5X,’ NUMBER OF INTERGROUP ADDITIONS =’, I 4//5X ,’ NUMBER ’, 

117 + ’OF FUNCTION GENERATORS =’ , I4//5X, 

113 + ’MODE SHAPE PRINTING CODE =’,I4//5X, 
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119 


120 

18 

121 

19 

122 


123 

MM 

124 

40 

1 25 

50 

126 

60 

127 

75 

128 

1 00 

129 

200 

130 

131 C 

132 

300 


18 : 

13 8/ 


*’ > // 


7 Microsoft F0RTRAN77 03. II 

k 'NEXT CASE CODE =',14) 

FORMAT (BN.2E12. 6, 1 12) 

FORMAT ( 1 H 1 / / /5X , 4 ( ’ * ’>,’ SUBCASE INPUT ',4(' 

>■ 17X, 'MODAL INPUT’ , 12, 5X, 'SUBCASE' , 12, 2(//5X,72A> /> 

FORMAT (1H1///5X,8(’* ’ ) , 4X, ’ MATRI X ADD IT IONS’ , 4X , 8 < ' *• 

FORMAT ( /5X, ’RPM1 =’ , 1PE13. 5, 8X , ’ DRPM = ’ , E13. 5, 8X, ’ NI .=' 

FORMAT ( 1 H 1 / // , 5X , ’ * * * FUNCTION GENERATOR DATA * * 

FORMAT I//5X, 'FUNCTION NO. ’ , 14, 6X, 48A/> 

FORMAT (45X, ’ RF'M ' , 17X , ’ VALUE’ / (37X , 1PE15 . 4 , 6X , E15. 4 ) > 

FORMAT (///5X, ’ * * * CASING GROUP MODAL DAMPING FACTORS * *,*’///) 
FORMAT < BN , 6E 1 2 . 5 ) 

FORMAT ( 10X, 1 PE 14.5) 

END 


’ ) ) 

= ' , 14 / > 
///> 


Name 

Type 

Offset 

F* 

Class 


DMP 

REAL 

24 

* 



DRPM 

REAL. 

188 


/DATA 

/ 

FG 

REAL 

4 

-* 



FHIGH 

REAL 

194 


/DATA 

/ 

FLOW 

REAL 

198 


/DATA 

/ 

I 

INTEGER*! 

50 




I CASE 

INTEGERS 

48 

* 



IFLG 

INTEGER*! 

204 


/DATA 

/ 

IFLG1 

INTEGER*! 

206 


/DATA 

/ 

I PC.NT 

INTEGER* 2 

218 


/DATA 

/ 

I PLT 

INTEGER*2 

62 




IPLTF 

INTEGER* 2 

172 


/DATA 

/ 

IF'RT 

I NTEGER*2 

178 


/DATA 

/ 

I PRT2 

INTEGER*2 

174 


/DATA 

/ 

1PRT3 

INTEGER* 2 

176 


/DATA 

/ 

I ROT 

INTEGER*2 

52 

*• 



iscnt 

INTEGER*2 

220 


/DATA 

/ 

J 

I NTEGER*2 

64 




J FUN 

I NT EGER* 2 

28 




KCRT 

I NTEGER*2 

180 


/DATA 

/ 

KRF’M 

INTEGER*2 

158 


/DATA 

/ 

LCOLJNT 

INTEGER* 2 

54 




LPT 

INTEGER*!' 

32 

* 



LSA 

INTEGEF:*2 

36 

■* 



L.SJ 

INTEGER*! 

40 

* 



MAXO 




INTRINSIC 

MAXPTS 

INTEGER*!' 

216 


/DATA 

/ 

NCASE 

I NTEGER*2 

154 


/DATA 

/ 

NCDOF 

INTEGER*!' 

6 


/DATA 

/ 

NCMOD 

INTEGER*! 

2 


/DATA 

/ 

NFGE'.N 

INTEGER*! 

160 


/DATA 

/ 

NGYRO 

INTEGER*! 

0 


/DATA 

/ 

NI 

INTEGER*!’ 

192 


/DATA 

/ 

MPT 

INTEGER*!' 

12 

■# 



NRC 

INTEGER*! 

16 

* 



NRDOF 

INTEGER*!: 

B 


/DATA 

/ 

NRMCiD 

INTEGER*! 

4 


/DATA 

/ 

NROT 

INTEGER*! 

156 


/DATA 

/ 

NSA 

INTEGER*! 

162 


/DATA 

/ 

NSL 

INTEGER*! 

170 


/DATA 

/ 

NSTAT 

INTEGER*! 

202 


/DATA 

/ 

NXTC; 

INTEGER'*! 

182 


/DATA 

/ 
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N2 

INTEGERS 

60 

* 



RPM1 

REAL 

184 


/DATA 

/ 

RZ 

REAL 

64 

* 



RZ1 

REAL 

68 

* 



S 

REAL 

20 

* 



SCALE 

REAL 

r> 1 2 


/DATA 

/ 

SPEED 

REAL 

8 

* 



THETA 

REAL 

208 


/DATA 

/ 

TITL 

CHAR* 1 

10 


/DATA 

/ 

TYTL 

CHAR* 1 

2 




X 

REAL 

56 

* 



ZETAC 

REAL 

0 

* 



ZRPM 

REAL 

44 

* 
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1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


1 

1 

1 

1 

1 

1 


133 *ADDS. FOR****************************************'*********************** 

134 C 

135 C ADDS READS INTERGROUP STIFFNESS AND DAMPING ADDITIONS WHICH 

136 C ACT IN THE Y AND Z DIRECTIONS. SPEED DEPENDENT FUNCTION 

137 C GENERATORS ARE ALSO ASSIGNED BY ADDS. 

136 C 

139 C**** ******************** ******************************************* **** 

140 C 

141 SUBROUTINE ADDS (DMP, JFUN, LSA, LSJ, NRC, S) 

142 C 

143 INTEGER IN<4) ,NZ (4) , JFUN(LSJ, i> ,NRC(LSA,2, 1) , IQ<4> ,NSA<4) 

144 C 

145 DIMENSION CD (4) , CS (4) , DMP (LSA. 1 ) , S (LSA, 1 ) 

146 C 

147 CHARACTER TITL <72, 2> *1 

148 C 

149 COMMON /DATA/NGYRQ, NCMOD, NRMOD, NCDOF, NRDOF , TITL , NCASE, NROT , 

150 + KRPM , NFGEN , NSA , NSL , IPLTF , IPRT2, IPRT3, IPRT , KCRT , 

151 + NXTC, RPM1 , DRPM, NI , FHIGH, FLOW, NSTAT, IFLG, IFLG1 , 

152 + THETA, SCALE, MAXPT3, IF'CNT, ISCNT 

153 C 

154 DATA IQ/1,-1,-1,1/ 

155 C 

156 DO 300 N = 1, NSL 

157 I N ( 1 ) = 4 * N - 3 

158 IN (2) = 4 * N - 2 

159 IN (3) = 4 * N - 1 

160 IN (4) = 4 * N 

161 C 

162 READ (5,5) NZ , < JFUN < 1 , 1 ) , I =4*N-3, 4*N> , (CS < I ) , I = 1 , 4 > 

163 C 

164 READ (5,7) < JFUN < I , 2) , I=4*N-3, 4*N> , (CD < I ) , 1=1 , 4) 

165 C 

166 DO 10 I = 1,4 

167 DO 10 11=1,4 

168 S ( IN < 1 1 ) , I ) = CS(II> * I Q < I » 

169 • DMP (IN(II),I) = CD (II) * IQ ( I > 

170 10 CONTINUE 

171 C 

172 NRC(INIl) , 1, 1> = NZ < 1 ) 

173 NRC ( I N ( 2) , 1 , 1 ) = NZ <2> 

174 NRC < IN (3) , 1 , 1 ) = NZ ( 1 ) 

175 NRC < IN (4 ) , 1 , 1 ) = NZ (2) 

176 NRC ( IN ( 1 ) ,2,1) = NZ ( 1 > 


RI/RD84-191 

D-65 



Page 5 
08-13-84 
18: 24: 

D Line# 1 7 Microsoft F0RTRAN77 V3.13 8/05/ 


1 

177 


NRC ( IN (2) 

,2,1) 

= 

NZ (2) 

1 

178 


NRC ( I N ( 3 ) 

,2,1) 

= 

NZ (2) 

1 

179 


NRC ( IN (4) 

,2,1) 

* 

NZ (1) 

1 

180 

C 





1 

181 


NRC ( IN ( 1 ) 

,1,2) 

= 

NZ (1) 

1 

182 


NRC ( I N ( 2 ) 

,1,2) 

= 

NZ (2) 

1 

183 


NRC ( I N ( 3 ) 

,1,2) 

= 

NZ (1 ) 

1 

184 


NRC ( IN (4) 

,1,2) 

= 

NZ (2) 

1 

185 


NRC ( I N ( 1 ) 

,2,2) 

= 

NZ (3) 

1 

186 


NRC < IN (2) 

,2,2) 

= 

NZ (4) 

1 

187 


NRC < I N ( 3 ) 

•? r>) 

9 — , — 7 

s= 

NZ (4) 

1 

188 


NRC < I N ( 4 ) 


= 

k 1 \ 

1 N L. \ %_• / 

1 

189 

C 





1 

190 


NRC ( I N < 1 ) 

,1.3) 

= 

NZ (3) 

1 

191 


NRC ( IN (2) 

,1,3) 

- 

NZ (4) 

1 

192 


NRC ( I N < 3 ) 

,1,3) 

= 

NZ (3) 

1 

193 


NRC ( I N < 4 > 

,1,3) 

= 

NZ (4) 

1 

.194 


NRC < IN( 1 > 

,2,3) 

= 

NZ ( 1 ) 

1 

195 


NRC ( IN (2) 

,2,3) 

= 

NZ (2) 

1 

196 


NRC ( IN (3) 

,2,3) 

= 

NZ (2) 

1 

197 


NRC (IN (4) 

,2,3) 

= 

NZ ( 1 ) 

1 

198 

C 





1 

199 


NRC ( I N ( 1 ) 

,1,4) 

= 

NZ (3) 

1 

200 


NRC ( I N ( 2 ) 

,1.4) 

= 

NZ (4) 

1 

20 .1 


NRC (IN (3) 

,1,4) 

= 

NZ (3) 

1 

202 


NRC (IN (4) 

,1,4) 


NZ (4) 

1 

203 


NRC ( IN ( 1 ) 

.2,4) 

-• 

NZ (3) 

1 

204 


NRC ( IN (2) 

,2,4) 

= 

NZ (4) 

1 

205 


NRC (IN (3) 

,2,4) 

= 

NZ (4) 

1 

206 

300 

NRC ( IN (4) 

,2,4) 

= 

NZ (3) 


207 

c 






208 

5 

FORMAT (BN 

,813, 

4E12 

.5) 


209 

7 

FORMAT (BN 

,413, 

4E12 

.5) 


210 C 

211 END 


Name 

Type 

Offset 

P 

Class 


CD 

REAL 

966 




CS 

REAL. 

982 




DMP 

REAL 

0 

* 



DR PM 

REAL 

188 


/DATA 

/ 

FHl'GH 

REAL 

194 


/DATA 

/ 

FLOW 

REAL 

198 


/DATA 

/ 

I 

INTEGEF:*2 

1 006 




IFLG 

I NTEGER+2 

204 


/DATA 

/ 

IFLG1 

I NTEGER*2 

206 


/DATA 

/ 

1 1 

I NTEGER-»2 

1012 




IN 

INTEGER*2 

950 




IPCNT 

INTEGER*2 

218 


/DATA 

/ 

IPLTF 

INTEGER*2 

172 


/DATA 

/ 

I PRT 

INTEGER* 2 

178 


/DATA 

/ 

IPRT2 

INTEGER*2 

174 


/DATA 

/ 

IPRT3 

I NTEGER*2 

176 


/DATA 

/ 

IQ 

INTEGER*2 

958 




I SCNT 

INTEGER* 2 

220 


/DATA 

/ 

JFUN 

INTEGER*2 

4 

* 



KCRT 

INTEGER *2 

180 


/DATA 

/ 

KRPM 

I NTEGER*2 

158 


/DATA 

/ 
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LSA 

I NTEGER*2 

8 

* 



LSJ 

INTEGER*2 

12 

* 



MAXPTS 

I NTEGER*2 

216 


/DATA 

/ 

N 

INTEGER*2 

998 




NCASE 

INTEGER*2 

154 


/DATA 

/ 

NCDOF 

INTEGER*2 

6 


/DATA 

/ 

NCMOD 

INTEGER*2 

2 


/DATA 

/ 

NFGEN 

INTEGER*2 

160 


/DATA 

/ 

NGYRO 

INTEGER*2 

0 


/DATA 

/ 

N I 

INTEGER*2 

192 


/DATA 

/ 

NRC 

INTEGER*2 

16 

* 



NRDOF 

INTEGER*2 

8 


/DATA 

/ 

NRMOD 

INTEGERS 

4 


/DATA 

/ 

NROT 

INTEGER*2 

156 


/DATA 

/ 

NSA 

INTEGER*2 

162 


/DATA 

/ 

NSL 

INTEGER*2 

170 


/DATA 

/ 

NSTAT 

INTEGER*2 

202 


/DATA 

/ 

NXTC 

INTEGER*2 

182 


/DATA 

/ 

NZ 

INTEGER*2 

942 




RF'Ml 

REAL 

184 


/DATA 

/ 

S 

REAL 

20 

* 



SCALE 

REAL 

212 


/DATA 

/ 

THETA 

REAL 

208 


/DATA 

/ 

TITL 

CHAR* 1 

10 


/DATA 

/ 
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1 

1 

1 

1 

1 


212 

213 

214 

215 

216 

217 

218 

219 

220 
221 


224 


*ADDM. FOR*************************************************************** 

C 

C ADDM READS INTRAGROUP STIFFNESS AND DAMPING ADDITIONS 

C WHICH ACT IN Y AND Z DIRECTIONS. SPEED DEPENDENT FUNCTION 

C GENERATORS ARE ALSO ASSIGNED BY ADDM. 

C 

c*************************** ********* *********************************** 

c 

SUBROUTINE ADDM <DMP, JFUN, LSA, LSJ , NRC, S) 

C 

INTEGER JFUN (LSJ , 1 > , NRC (LSA, 2,1), NS A (4 ) 

C 

DIMENSION DMP (LSA, 1 > „S(LSA, 1 > 

C 


226 CHARACTER TITL<72,2)*1 

227 C 

228 COMMON /DAT A /NGYRO , NCMOD . NRMOD , NCDOF , NRDOF . T I TL , NCASE , NROT , 

229 + KRPM , NFGEN, NSA , NSL , I PLTF , I FRT2 , I FRT3 , I F'RT , KCRT , 

230 + NXTC.RPMl ,DRPM,NI , FHIGH, FLOW. NSTAT, IFLG, IFLG1 , 

231 + THETA, SCALE, MAXPTS, IPCNT, ISCNT 

232 C 

233 C 1. ADDITIONS FOR UPPER LEFT PARTITION 

234 C 2. ADDITIONS FOR UPPER RIGHT PARTITION 

235 C 3. ADDITIONS FOR LOWER LEFT PARTITION 

236 C 4. ADDITIONS FOR LOWER RIGHT PARTITION 

237 C 

238 KK=0 

239 DO 105 11=1,4 

240 IF (NSA (II) .EQ. 0) GO TO 105 

241 READ (5,5) < (NRC ( I , L, 1 1 ) , L= 1 , 2) , ( JFUN ( I+KK , L) , L= 1 , 2) , 

242 1 S(I, I I> ,DMPU, I I) , I=4*NSL+1 ,4*NSL+NSA (I I) > 

243 KK=KK+NSA (II) 

244 105 CONTINUE 
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245 C 

246 

247 C 

248 


5 FORMAT (BN, 413, 2E12. 6) 
END 
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Name 

Type 

Of f set 

P 

Cl ass 


DMP 

REAL 

0 

* 



DRF'M 

REAL 

188 


/DATA 

/ 

FHIGH 

REAL 

194 


/DATA 

/ 

FLOW 

FlEAL 

198 


/DATA 

/ 

I 

INTEGER*2 

1094 




IFLG 

INTEGER*2 

204 


/DATA 

/ 

IFLS1 

INTEGER*2 

206 


/DATA 

/ 

II 

' INTEGER*2 

1 092 




I FONT 

I NTEGER*2 

218 


/DATA 

/ 

I F'LTF 

INTEGER*2 

172 


/DATA 

/ 

IF'RT 

INTEGER*2 

178 


/DATA 

/ 

IPRT2 

INTEGER*2 

174 


/DATA 

/ 

IF'RT 3 

INTEGER*2 

176 


/DATA 

/ 

I SENT 

INTEGER*2 

220 


/DATA 

/ 

JFUN 

INTEGER*2 

4 

* 



KCRT 

INTEGER*2 

180 


/DATA 

/ 

KK 

INTEGER*2 

1090 




KRF'M 

INTEGER*2 

158 


/DATA 

/ 

L. 

INTEGER*? 

1096 




LSA 

INTEGER*2 

B 

* 



L.SJ 

INTEGER*2 

12 

* 



MAXF'TS 

INTEGER*2 

216 


/DATA 

/ 

NCASE 

INTEGER*2 

154 


/DATA 

/ 

NCDOF 

INTEGER*2 

6 


/DATA 

/ 

NCMOD 

I NTEGER*2 

9 


/DATA 

/ 

NFGEN 

INTEGER* 2 

160 


/DATA 

/ 

MGYRO 

INTEGER*2 

0 


/DATA 

/ 

N I 

INTEGER*? 

192 


/DATA 

/ 

NRC 

I NTEGER*2 

16 

* 



NRDOF 

I NTEGER*2 

8 


/DATA 

/ 

NRMOD 

I NTEGER*2 

4 


/DATA 

/ 

NROT 

I NTEGER*2 

156 


/DATA 

/ 

NSA 

INTEGER*2 

162 


/DATA 

/ 

NSL 

I NTEGER*2 

170 


/DATA 

/ 

NSTAT 

INTEGER*? 

202 


/DATA 

/ 

NXTC 

INTEGER*? 

182 


/DATA 

/ 

RF'Ml 

REAL 

184 


/DATA 

/ 

S 

REAL 

20 

* 



SCALE 

REAL 

9 J 9 


/DATA 

/ 

THETA 

REAL 

208 


/DATA 

/ 

TITL 

CHAR* 1 

10 


/DATA 

/ 


249 

250 

251 

252 

253 

254 

255 

256 

257 


♦OUTAB . FDR*********************************************************'##*"*'* 

C 

C DUTAB IS AN 10 ROUTINE FOR STIFFNESS AND DAMF'INB ADDITIONS 

C AND THEIR RELATED FUNCTION GENERATORS. 

C 

C NRC.S, JFUN,DMF' COME FROM SUB. ADDM 

C 

c******************************************************************** *** 

c 
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258 


SUBROUTINE 

OUTAB (DMP, JFUN, LSA, LSJ , NRC, S) 


259 

C 




260 


INTEGER 

JFUN (LSJ , 1) , NRC (LSA, 2, 1) ,NSA<4> 


261 

C 




262 


DIMENSION 

DMP (LSA, 1 > , S (LSA , 1 ) 


263 

c 




264 


CHARACTER 

FORMS <8 ) *21 ,TITL(72,2)*1 


265 

c 




266 


COMMON /DATA /NG YRO , NCMOD , NRMOD , NCDOF , NRDOF , T I TL , NCASE , NROT , 


267 


+ 

KRFM, NFGEN, NSA, NSL, IFLTF, IPRT2, IPRT3, IF'RT, KCRT 


268 


+ 

NXTC, RF'Ml , DRPM, NI , FHIGH, FLOW, NSTAT, IFLG, IFLG1 , 


269 


+ 

THETA, SCALE, MAXPTS, I FONT, ISCNT 


270 

c 




271 

c- 

WRITE A CONNECTIVITY MATRIX FOR EACH INTERGROUP ADDITION 


272 

c 




273 


DO 100 J=l, 

NSL, 3 

1 

274 


WRITE (6, 800 

>2) 

1 

275 


DO 90 I =J , J+2 

<]) 

276 


WRI TE <6, 38 ) 

I, ’ROT Y: ’ ,NRC( 1*4-3, 1 , 1 ), ’ROT Z : ’ , NRC ( I *4-2, 1 , 1 ) , 

O 

iL 

277 


+ 

’CAS Y: ’ , NRC ( I *4-3, 2,2) , ’ CAS Z : ’ , NRC ( 1*4-2, 2, 2) 

O 

278 

c 



jL 

279 


WRITE (6, 22) 



280 

c 




281 


WRITE (6,24) 


*■> 

282 


WRITE (6, 26) 


2 

283 


WRITE <6,40) 

S ( 1*4-3, 1 > , S ( I *4-1 , 1 ) , DMP ( 1*4-3, 1 ) , DMP ( 1*4-1, 1) 


284 


WRITE (6, 26) 



285 


WRITE (6, 42) 

JFUN (1*4-3, 1 ) , JFUN (1*4-1 , 1) , 

2 

286 


1 

JFUN ( 1*4-3, 2) , JFUN ( 1*4-1 , 2) . 

s~ 

287 


WRITE (6, 26) 


2 

288 


WRITE <6, 32) 


2 

289 


WRITE <6, 26) 


2 

290 


WRITE (6,40) 

S(I *4,1), S ( I *4-2, 1 > , DMP ( I *4 , 1 > , DMP(I*4-2,1> 

n 

291 


WRITE <6, 26) 


2 

292 


WR I TE (6, 42 ) 

JFUN <1*4, 1 ) , JFUN (1*4-2, 1 ) , 


293 


1 

JFUN (1*4, 2) , JFUN (1*4-2, 2) 

2 

294 


WRITE <6, 26) 


9 

295 


WRITE (6, 24) 


2 

296 


90 IF ( I . EQ. NSL) GOTO 200 

1 

297 


100 WRITE (6, 8003) 


298 

c 




299 22 FORMAT < 12X, ’ INTERGROUP STIFFNESS’ , 21 X,' INTERGROUP DAMPING’ ) 

300 24 FORMAT (2 <5X, ’***’, 27X, ’***’, 2X> ) 

301 26 FORMAT (2 (5X , ’ *’ , 15X, ’ : ’ , 15X , ’ *’ , 2X ) ) 

302 32 FORMAT (2<5X, ’*’, 15 ( 15 <’.’>’*’, 2X> ) 

303 38 FORMAT <//5X, ’ NSL NUMBER’ , 13, 4 <5X, A, 14) / > 

304 40 FORMAT (2 <5X, ’ * ’,1PE13.5,’ : ’,E13.5,’ *’,2X)> 

305 42 FORMAT (2 <5X * FG ( ’ , 1 2, ’ ) ’ , 5X , ’ : FG < ’ , 12, ’ > ’ , 5X , ’ * ’ , 2X > > 

306 8002 FORMAT (//5X, ’ * * * INTERGROUP ADDITIONS * * *’ ) 

307 8003 FORMAT ( 1H1 ) 

308 C 

309 C WRITE INTRAGROUP ADDITIONS 

310 C 

311 200 IF(NSA(1) +NS A ( 2 ) +NSA ( 3 ) +NS A < 4 ) . NE ■ 0 ) THEN 

312 WRITE (6, 101) 

3 1 3 KK=0 

314 DO 300 11=1,4 

1 315 IF(NSA(II) .EQ.O) GO TO 300 

1 316 WRITE (6, 8000) FORMS (1 1+4) 
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327 
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329 

330 

331 
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WRITE (6, 8001) 

DO 299 I = 1 , NSA (II) 

N = 4*NSL + I 

299 WRITE (6, 28) I , (NRC(N, J, 1 1 ) , J = 1 , 2) , S (N, 1 1 ) , JFUN (N+KK, 1) . DMF' (N. II ) , 

1 JFUN (N+KK, 2) 

300 KK=KK+NSA (II) 

END IF 

C 

28 FORMAT ( (5X , 3 ( 13, 4X ) , 1 PE12. 5, 4X , 1 3, 4X , El 2. 5, 4X , 13) ) 

101 FORMAT ( 1H1///, 5X, ’ * * * GENERAL ADDITIONS * * *'//) 

8000 FORMAT (///10X,A,//) ' 

8001 FORMAT ( 5X , 'NO. ' ,4X, 'ROW' , 3X , 'COL. ' ,4X, 'STIFFNESS' ,5X, 'FUNC. ' , 4X, 

1 'DAMPING' ,7X, 'FUNC. ' /> 

C 

END 


Name 

Type 

OF f set 

P 

Cl ass 


DMF' 

REAL 

0 

* 



DRF'M 

REAL 

188 


/DATA 

/ 

FHIGH 

REAL 

194 


/DATA 

/ 

FLOW 

REAL 

198 


/DATA 

/ 

FORMS 

CHAR*21 

1164 




I 

INTEGER*? 

1340 




I FLG 

I NTEGER*? 

204 


/DATA 

/ 

1FLG1 

I NTEGER*? 

206 


/DATA 

/ 

II 

INTEGER*?! 

1736 




IF'CNT 

INTEGER*? 

218 


/DATA 

/ 

I F'LTF 

INTEGER*? 

172 


/DATA 

/ 

I F'RT 

INTEGER* 2 

178 


/DATA 

/ 

IPRT2 

INTEGER*? 

174 


/DATA 

/ 

I F'RT 3 

INTEGER*? 

176 


/DATA 

/ 

ISCNT 

INTEGER*? 

220 


/DATA 

/ 

J 

INTEGER*? 

1332 




JFUN 

INTEGER*? 

4 

* 



KCRT 

INTEGER*? 

180 


/DATA 

/ 

KK 

INTEGER*?. ° 

1 734 




KRFM 

INTEGER*? 

158 


/DATA 

/ 

LSA 

INTEGER*? 

8 

* 



LSJ 

INTEGER*? 

12 

* 



MAXF'TS 

INTEGER*? 

216 


/DATA 

/ 

N 

INTEGER*? 

1744 




NDASE 

INTEGER*? 

154 


/DATA 

/ 

NCDOF 

INTEGER*? 

. 6 


/DATA 

/ 

NCMOD 

INTEGER*? 

X 


/DATA 

/ 

NFGEN 

INTEGER*? 

160 


/DATA 

/ 

NGYRO 

INTEGER*? 

0 


/DATA 

/ 

NI 

INTEGER*? 

192 


/DATA 

/ 

NRC 

INTEGER*? . 

16 

* 



NRDQF 

INTEGER*? 

8 


/DATA 

/ 

NRMOD 

INTEGER*? 

4 


/DATA 

/ 

NROT 

INTEGER*? 

156 


/DATA 

/ 

NSA 

INTEGER*? 

162 


/DATA 

/ 

NSL 

INTEGER*? 

170 


/DATA 

/ 

NSTAT 

INTEGER*? 

202 


/DATA 

/ 

NXTC 

INTEGER*? 

182 


/DATA 

/ 

RF'Ml 

REAL 

184 


/DATA 

/ 

S 

REAL 

20 

* 



SCALE 

REAL 

212 


/DATA 

/ 


RI/RD84-191 

D-70 



7 


D Line# X 
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332 *R3. FOR***************************************************************** 

333 C 

334 C R3 READS AND PRINTS THE ROTOR AND CASING DEGREES OF 

335 C FREEDOM WHERE DISPLACEMENTS WILL BE CALCULATED. 

336 C 

337 C***************************** *********************** ******************* 

338 C 

339 SUBROUTINE R3 ( ZRF'M, ICASE, 1R0T, X , NZ , RZ , RZ 1 ) 

340 C • 


341 


INTEGER 

ICASE ( 1) , I ROT (1 > , NZ (4) 

342 

C 



343 


DIMENSION 

ZRF'M ( 1 ) , RZ <6> ,RZ1 (6) , X < 10) 

344 

C 



345 

346 

c 

CHARACTER 

TITL (72, 2) *1 

347 


COMMON 

/DATA/NGYRO, NCMOD , NRMOD, NCDOF , NRDOF , TITL, NCASE, NROT , 

348 


+ 

K.RPM, NFGEN, NS A (4) ,NSL, IPLTF, IPRT2, IPRT3, I PRT , KCRT , 

349 


+ 

NXTC, RF'Ml , DRPM.NI , FHIGH, FLOW, NSTAT, IFLG, IFLG1 , 

35 U 
351 

c 

+ 

THETA, SCALE, MAXF'TS, IPCNT, ISCNT 


352 C READ DISPLACEMENT DOF DATA 

353 C 

354 READ <5, 200) NROT, NCASE 

355 C 


356 

IF(NROT.NE.O) 

THEN 

357 

READ (5,210) 

( I ROT ( I > , 1=1, NROT) 

358 

WRITE (6, 220) 


359 

WRITE (6, 221) 

( I ROT < I > , 1 = 1, NROT) 

360 

ELSE 


361 

WRITE <6, 600) 


362 

END IF 


363 C 



364 

IF (NCASE. NE.O) 

THEN 

365 

READ (5,210) 

( ICASEf I > , 1=1 , NCASE) 

366 

WRITE <6, 215) 


367 

WRITE (6, 221 ) 

( ICASE ( I ) , 1=1, NCASE) 


368 ELSE 

369 WRITE (6, 610) 

370 END IF 

371 C 

372 C READ PRINT/PLOT FREQUENCY RANGE 

373 C 

374 WRITE <6, 320) 

375 READ (5, 300) FHIGH, FLOW 

376 WRITE (6. 310) FHIGH, FLOW 

377 C 

378 C READ CRITICAL SPEEDS AND STABILITY PLOTTING FLAGS AND DATA 

379 C 

380 READ (5, 12) RZ 

381 WRITE (6, 61 ) RZ 

382 C 

383 READ (5,101) I PLTF , IPRT2 

384 WRITE (6, 51) I PLTF, IPRT2 

385 C 

386 IF ( IPRT2 .EQ. 0) THEN 

r 
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387 


READ (5, 12) 

RZ 1 

388 


WRITE (6, 53) 

RZ1 

389 


READ (5, 210) 

NZ 

390 


WRITE (6, 54) 

NZ 

391 


ELSE 


392 


RZ1 (3) =-200 


393 


R Z 1 ( 4 ) = 100 


394 


END IF 


395 

c • 



396 

c— 

- — READ MODE SHAPE PLOTTING DATA 

397 

c 



3 98 


READ (5, 101) IPRT3 

399 


WRITE <6, 63) IPRT3 

400 

c 



40 1 


IF ( IPRT3 . EQ. 

0) THEN 

402 


READ (5,210) 

KRPM 

403 


WRITE (6,52) 

KRF'M 

404 


READ (5, 12) 

( ZRPM ( I ) , 1=1 , KRPM) 

405 


WR I TE ( 6 , 59) 

(ZRPM(I) , 1=1, KRPM) 

406 


READ (5, 92) 

NSTAT, IFLG, IFLG1 , THETA, SCALE 

407 


WRITE (6, 58) 


408 


WRITE (6, 55) 

NSTAT, IFLG, IFLG1 . THETA, SCALE 

409 


READ (5, 12) 

(X (I) , 1=1, NSTAT) 

410 


WRITE (6,56) 


411 


WRITE (6,57) 

( X ( I > , 1=1, NSTAT) 

412 


ENDIF 


413 

c 




414 

415 

416 

417 

418 
4 19 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 
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12 FORMAT 

51 FORMAT 

52 FORMAT 
1 

53 FORMAT 

1 

n 

54 FORMAT 

55 FORMAT 
1 

56 FORMAT 

57 FORMAT 

58 FORMAT 

59 FORMAT 
61 FORMAT 

1 


(BN, 6F 12.0) 

</ 10X , ’ IPLTF =’ , 13, 19X, ’ IPRT2 = ’ , 13) 

( / 1 OX , ’ MODE SHAPES PLOTTED FOR ’,12,’ 
’ FOLLOWING SPEEDS’ ) 


SPEED CASES AT’, 


C/10X, ’ 
’ YB1 
E13. 5, 
</10X, ’ 
</10X, ’ 


XB1 


XR1 = ’ , El 3. 5/10X , 

=’ , E13.5/10X, ’DX1 


63 

92 

101 

200 

210 

215 


FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 


1PE13.5,9X, 

= ’ , E13. 5, 9X, ’ YT1 
9X , ’ DY 1 =’,E13.5) 

STABILITY PLOT CHARACTERS’ , 2X , 4 ( 3X , I 3) ) 
STAT IONS=’ , 13, 4X, ’ IFLG=’ , 12, 4X, ’ IFLG1 = ’ 
12, 4X, ’ THETA=’ , F6. 1,4X, ’SCALE=’ ,F5.3) 

</10X, ’STATION LOCATIONS’/) 

( 15X, 5F1 1.3) 

( / / 1 OX , ’ MODE SHAPE PLOTTING DATA’) 

( / 1 5X , 5F 11.0) 

, 1PE13.5.9X, ’ XR 
=’ ,E13. 5/10X, 

5) 

,13) 

. 6 ) 


( / 1 0 X , ’ X B 
E13.5.9X, ’ YT 
’DY =’ , E13. 
C/10X, ’ IPRT3 =’ 
(BN, 16, 213, 2F12 


1 DX 


= ’ , El 3. 5/10X, ’YB 
*’ ,E13.5,9X, 


220 FORMAT 
1 


221 

300 

310 

320 

600 


FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 


610 FORMAT 


( BN , 1 2 ) 

(BN, 216) 

(BN, 2413) 

<6(/) ,5X, ’CASING DISPLACEMENTS WILL BE COMPUTED’. 

’ AT THE FOLLOWING DEGREES OF FREEDOM’//) 

(1H1///5X, ’ROTOR DISPLACEMENTS WILL BE COMPUTED’, 

’ AT THE FOLLOWING DEGREES OF FREEDOM’//) 

( 10X, 1215) 

(BN, 2E12. 5) 

< / // 1 OX , ’ FHIGH =’ , 1FE13. 5, ’ CPM’ , 5X, ’ FLOW =’,E13.5, ’ CPM’ 
(1H1///5X, ’* * PRINT AND PLOT CONTROL OPTIONS * *’> 
(1H1///5X, ’ROTOR DISPLACEMENTS WILL NOT BE COMPUTED’) 
(6(/> ,5X, ’CASING DISPLACEMENTS WILL NOT BE COMPUTED’) 
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447 
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Name 

Type 

Offset 

P 

Cl ass 


DRF'M 

REAL 

188 


/DATA 

/ 

FHIGH 

REAL 

194 


/DATA 

/ 

FLOW 

REAL 

19B 


/DATA 

/ 

I 

INTEGERS 

1980 




I CASE 

INTEGER* 2 

4 

* 



I FLG 

I NTEGER*2 

204 


/DATA 

/ 

IFLG1 

I NTEGER*2 

206 


/DATA 

/ 

IPCNT 

I NTEGER*2 

218 


/DATA 

/ 

IFLTF 

I NTEGER*2 

172 


/DATA 

/ 

IPRT 

I NTEGER*2 

178 


/DATA 

/ 

IPRT2 

I NTEGER*? 

174 


/DATA 

/ 

IPRT3 

I NTEGER*? 

176 


/DATA 

/ 

I ROT 

INTEGER*? 

8 

* 



ISCNT 

I NTEGER*? 

220 


/DATA 

/ 

KCRT 

INTEGEF:*2 

1 80 


/DATA 

/ 

KRPM 

INTEGER*? 

158 


/DATA 

/ 

MAXPTS 

INTEGER*2 

216 


/DATA 

/ 

NCASE 

I NTEGER*? 

154 


/DATA 

/ 

NCDOF 

INTEGER*? 

6 


/DATA 

/ 

NCMOD 

INTEGER*? 



/DATA 

/ 

NFGEN 

I NTEGER*? 

160 


/DATA 

/ 

NGYRQ 

INTEGER*2 

0 


/DATA 

/ 

N I 

INTEGER*2 

192 


/DATA 

/ 

NRDOF 

INTEGER*? 

8 


/DATA 

/ 

NRMOD 

INTEGER*? 

4 


/DATA 

/ 

NROT 

INTEGER*? 

156 


/DATA 

/ 

NSA 

INTEGER*? 

162 


/DATA 

/ 

NSL 

INTEGER*? 

170 


/DATA 

/ 

NSTAT 

INTEGER*? 

202 


/DATA 

/ 

NXTC 

INTEGER*? 

182 


/DATA 

/ 

NZ 

INTEGER*? 

16 

* 



RPM1 

REAL 

184 


/DATA 

/ 

RZ 

REAL 

20 

*■ 



RZ1 

REAL 

24 

* 



SCALE 

REAL 

212 


/DATA 

/ 

THETA 

REAL 

208 


/DATA 

/ 

TITL 

CHAR* 1 

10 


/DATA 

/ 

X 

REAL 

12 

* 



ZRPM 

REAL 

0 

* 




Name Type 

Size 

Cl ass 

ADDM . 


SUBROUTINE 

ADDS 


SUBROUTINE 

DATA 


COMMON 

FORT 02 


SUBROUTINE 

OUTAB 


SUBROUTINE 

R3 


SUBROUTINE 


Pass One No Errors Detected 
447 Source Lines 
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. i *RS TAB* ****** ****** *************************** ******* ****** ******* ****** 
2 C 

3C PROGRAM RSTAB 

4 C 

5 C ROTOR DYNAMICS ANALYSIS PROGRAM 

6 C 

7 C** *************************************************************** ****** 

8 C 

PRINCIPAL SUBROUTINES UTILIZED IN RSTAB ARE CALLED 
IN THE FOLLOWING ORDER: 

PLOT SET UP ROOT LOCUS PLOT 

FORT 03 SOLVE FOR EIGENVALUES VS. RPM 

MATX 
EIGRF 
ANSR 

C****************** ****************************************** *********** 
C 

INPUT FILE NAMES DESCRIPTION 


9 

C 

10 

C 

1 1 

C 

12 

c 

13 

c 

14 

c 

1 5 

c 

16 

c 

17 

c 

163 

c 

19 

c 


20 

21 


24 

25 

26 
27 
263 

29 

30 

31 


34 

35 

36 

37 
363 

39 

40 

41 

42 

43 

44 

45 

46 

47 
4B 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 


RUNDATA.BIN 


FIN. BAT 


OUTPUT FILE NAMES 


EIGENS.BIN 


SHAPES. BIN 


LIST' 


BINARY RUN DATA FILE CREATED BY PROGRAM 
PRERSTAB 

FORMATTED IBM BATCH FILE USED TO DETERMINE 
WHETHER TO PRINT THE OUTPUT LISTING DATA 
IMMEDIATELY, OR TO WRITE THE INFORMATION TO 
TEMPORARY FILE ' LIST2' 

DESCRIPTION 


BINARY DATA FILE CONTAINING THE EIGENVALUES 
FOR EACH RPM STEP. USED BY PROGRAM PSTRSTAB 
FOR CRITICAL SPEED AND STABILITY PLOTTING 

BINARY DATA FILE CONTAINING THE COMPLEX MODE 
SHAPES (IN NORMAL COORDINATES) FOR PLOTTING BY 
PROGRAM PSTRSTAB 

FORMATTED OUTPUT LISTING CREATED ONLY IF 
OUTPUT IS NOT PRINTED IMMEDIATELY 


C** ************************************************************* ******* 

^STORAGE: 2 
C 

PROGRAM RSTAB 
C 

C 

C 

C 

c 


CHARACTER 

INTEGER 

REAL 


TITL (72, 2) *1 , TAF'E4*14 
NZ <4> , NSA ( 4 ) 

RZ (6) , RZ 1 (6) 


EQUIVALENCE <G,Z) , (TITL, TAPE4) 
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60 C* ARRAY DIMENSIONS MOST LIKELY TO CHANGE **************************** 

61 C 

62 C NOTES: DIMENSION WK TO (MAXO (LRDOF, LCDOF, 2*LDYN) > 

63 C FUNC TO (NFGEN + 1) 

64 C Z TO <2, LDYN, LDYN) 

65 C W TO <2. LDYN) 

66 C 

67 DIMENSION AC <50, 14) , AR ( 1 15, 16) , WC ( 14) , WR ( 16) , ZETAC(14) , X(10) , 

68 + SPEED (20, 24) , DMP ( 100, 4) , S ( 100, 4) , FG <20, 24) , 

69 + G(115,115>, FUNC (25) , ZRFM (25) , W (2,60) 

70 C 

71 INTEGER JFUN< 160,2) , NF'T (24) , NRC<100, 2,4), I ROT (20) , I CASE (20) 

72 C 

73 REAL*8 GEAR ( 16, 16) , A (60, 60) , WK < 120) , Z (2, 60, 60) 

74 C 

75 C*** ************************************************************ ******* 

76 C 

77 COMMON /DATA/NGYRO, NCMOD, NRMOD, NCDOF, NRDOF, TITL , KRPM, NFGEN. 

78 + NSA.NSL, IPRT, KCRT, NXTC, RPM1 , DRF'M, N1 , FHIGH, FLOW, 

79 + IPLTF, IPRT2, IPRT3 

80 COMMON /MEM/Z 

81 COMMON /MQD/AR, AC 

82 C 

83 C DEFAULT UNITY FUNCTION GENERATOR 

84 C 

85 DATA FUNC ( 1 ) /l.O/ 

86 C 

87 c* DATA STATEMENTS NEEDED FOR ARRAY RED I MENS I ON I NG ******************** 

88 C 

89 DATA LCMOD.LRMOD/14, 16/, LSA,LSJ /100,160/ 

90 DATA LPT /20>, LRDOF , LCDOF/ 1 15, 50/ 

91 C 

92 C*** ************************************************************ ******* 

93 C 

94 LDYN=2* (LRMOD+LCMOD) 

95 LG=MAX0 (LRDOF, LCDOF) 

96 C 

97 C OPEN OUTPUT FILE 

98 C NOTES: FILE FIN. BAT IS EMPTY IF OUTPUT IS BEING LISTED ON PRN, 

99 C ELSE TAP£4=’LIST2’ 

100 C 

101 C CHANNEL 4 IS USED FDR PRINTING THE ROOT-LOCUS PLOT. 

102 C 

103 OPEN ( 2 , F I LE= ’FIN, BAT ’ , ST ATUS= ’ OLD ’ ) 

104 T APE4=’ PRN ’ 

105 READ (2, 9000, END=5) TAPE 4 

106 5 CLOSE (2) 

107 OPEN (6, FILE=TAF‘E4 , STATUS=’ NEW’ ) 

108 OPEN (4 , F ILE=’ PRN' , STATUS=’ NEW' ) 

109 C 

110 C OPEN RUN DATA, EIGENVALUE, AND MODE SHAPE DATA FILES 

111C 

112 OPEN ( 1 , F I LE= ’ RUNDAT A . BIN’ , STATUS=’ OLD’ , FQRM=’ UNFORMATTED' ) 

113 OPEN <2, F ILE=’ El GENS. BIN’ , STATUS=’NEW’ , FORM=’ UNFORMATTED’ ) 

1 14 OPEN (3, FILE=’ SHAPES. BIN’ , STATUS=’ NEW’ , FORM= ’ UNFORMATTED’ ) 

1 15 C 

116 C READ PROBLEM DATA 

117 C 

118 10 READ ( 1 ) (TITL(I, 1) , 1=1,72) , NCDOF. NCMOD, NRDOF, NRMOD, IPCNT 
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119 C 

120 READ (1 ) < (AC (I , J) , I=1,NCD0F> , J=1 ,NCM0D) , < <AR<I, J) , 1=1, NRDOF) , 

121 + J = 1 , NRMOD) , < (GBAR < I , J ) , I = 1 , NRMOD) , J = 1 , NRMOD) , ( WC ( I ) , 

122 + 1 = 1, NCMOD ) , ( WR (I), 1 = 1, NRMOD > 

123 C 

124 C READ SUBCASE DATA 

125 C 

126 20 READ ( 1 ) (TITL (I , 2) , 1=1 , 72) , NSA, NSL, IPRT, KCRT, NXTC, NFGEN, MAXPTS . 

127 + RPM1 , DRPM, NI , NROT, NCASE , FHIGH, FLOW, RZ , IF'LTF, IF'RT2,RZ1. 

128 + NZ, IPRT3,KRPM,NSTAT, XFLG, IFLG1, THETA, SCALE, ISCNT/ 

129 C 

130 NSJ=4*NSL+NSA ( 1 ) +NSA (2) +NSA (3) +NSA < 4) 

131 NNSA=4*NSL+MAXO (NSA < 1 ) ,NSA(2> , NSA(3> , NSA<4) ) 

1 32 C 

133 READ ( 1 > < ZET AC < I ) , 1 = 1 , NCMOD) , (NPT (J) , (FG (I , J) , SPEED ( I , J) , 

134 + 1=1, MAXPTS) ,J=1, NFGEN) ,( (JFUNCIjJ) , 1=1, NSJ) , J=l, 2) , 

135 + < (S ( I, J) ,DMP(I, J) , (NRC < I , K, J > , K=1 , 2) , 1 = 1 ,NNSA) , J=1 , 4) . 

136 + (IROT(I) , 1 = 1, NROT) , (ICASEU ), 1 = 1 , NCASE) , (ZRF'MCI ) , 

137 + 1=1 , KRPM) , (X(I),I=1, NSTAT ) 

138 C 

139 C SAVE CRITICAL SPEED AND STABILITY PLOT DATA 

140 C 

141 WRITE (2) IF'LTF, IPRT2, TITL, RZ , RZ 1 , RPM1 , DRPM, NI , FHIGH, FLOW, 

142 + NRMOD, NCMOD, NZ, KCRT, IPCNT, ISCNT, NXTC 

143 C 

144 C SAVE MODE SHAPE FLOTTING DATA 

145 C 

146 WRITE (3) IPRT, I PRT3,NCD0F, NCMOD. NRDOF, NRMOD. NCASE, NROT, TITL, 

147 + NSTAT, IFLG, IFLG1, THETA. SCALE, IPCNT, ISCNT, NXTC 

143 C 

149 WR I TE (3 ) < ( AC < I , J ) , I = 1,NCD0F) ,J=1, NCMOD) , ( <AR(I,J) , 1 = 1, NRDOF) , 

150 + J=l, NRMOD), (ICASE(I), 1=1, NCASE), (IRDT(I), 1=1, NROT), 

151 + (X(I), 1=1, NSTAT) 

152 C 

153 C SET UP PLOTTING GRID 

154 C 

155 CALL PLOT < R Z , R Z 1 , RF'M 1 > 

156 C 

157 C F 0 R T 0 3 

158 C 

159 WRITE (6, 9002) IPCNT, ISCNT 

160 CALL F0RT03 (A, AC, AR, DMF, FG, GBAR, JFUN, NPT, NRC, W, S, SPEED, WC, WR, 

161 + ZET AC, FUNC < 2) , LCDOF, LRDOF , LRMQD, LDYN, LSA , LSJ , LPT , 

162 + LG, ICASE, IROT, WK, G, Z, ZRFM) 

163 C 

164 C MAKE HARDCOPY OF THE ROOT LOCUS DISPLAY 

165 C 

166 WRITE <4, 9001 ) 

167 CALL QF'SCR 

168 C 

169 C- RERUN? 

170 C 

171 GOTO <10, 20 , 20 ) NXTC 

172 C 

173 C CLOSE DATA FILES 

174 C 

175 CLOSE (1) 

176 CLOSE (2) 

177 CLOSE (3) 
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178 C 

179 C TERMINATE PLOTTING MODE 

180 C 
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181 CALL QSMODE (3) 

182 CALL QCSI Z (0, 0) 

183 CALL QCLEAR < 1 , 7 ) 

184 CALL DBORD < 1 ) 

185 C 

186 C FORMAT STATEMENTS 


187 C 

188 9000 FORMAT </4X, A) 

189 9001 FORMAT (1H1/////) 

190 9002 FORMAT (1H1///10X, ’ * * * MAIN ROUTINE * * *’//15X, 

191 + ’MODAL INPUT 12, 5X, ’ SUBCASE ’,12) 

192 C 

193 END 


Name 

Type 

Of f set 

P Class 


A 

REAL*8 

13370 



AC 

REAL 

7360 

/MOD 

/ 

AR 

REAL 

0 

/MOD 

/ 

DMP 

REAL 

9750 



DRPM 

REAL 

178 

/DATA 

/ 

FG 

REAL 

11350 



FHIGH 

REAL 

184 

/DATA 

/ 

FLOW 

REAL 

188 

/DATA 

/ 

FUNC 

REAL 

13270 



8 

REAL 

0 

/MEM 

/ 

GBAR 

REAL*8 

7702 



I 

INTEGER*! 

42188 



ICASE 

INTEGERS 

7662 



IFLG 

I NTEGER*2 

42218 



IFL..B1. 

INTEGER*! 

42220 



IPCNT 

INTEGER*2 

42192 



IPL.TF 

INTEGER*!' 

192 

/DATA 

/ 

I PRT 

INTEGER*! 

168 

/DATA 

/ 

IPRT2 

INTEGER*! 

194 

/DATA 

/ 

IPRT3 

INTEGER*! 

196 

/DATA 

/ 

I ROT 

INTEGER*! 

7622 



ISCNT 

INTEGER*! 

42230 



J 

INTEGER*! 

42194 



JFUN 

INTEGER*! 

5334 



K 

INTEGER*! 

42236 



KCRT 

INTEGER*! 

170 

/DATA 

/ 

KRPM 

INTEGER*! 

154 

/DATA 

/ 

LCDOF 

INTEGER*! 

42182 



LCMOD 

INTEGER*! 

42170 



LDYN 

INTEGER*! 

42184 



LG 

INTEGER*! 

42186 



LFT 

INTEGER*! 

42178 



LRDOP 

INTEGER.*! 

42 1 80 



LRMOD 

INTEGER*! 

42172 



LSA 

INTEGER*! 

42174 



LSJ 

INTEGER*! 

42176 



MAXO 



INTRINSIC 

MAXPTS 

INTEGER*! 

42210 



NCABE 

INTEGER*! 

42214 



NCDOF 

INTEGER*! 

6 

/DATA 

/ 
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NCMOD 

I NTEGER*2 

2 

/DATA 

/ 

NFGEN 

INTEGER*? 

156 

/DATA 

/ 

NGYRO 

INTEGER+2 

0 

/DATA 

/ 

NI 

INTEGER*?' 

182 

/DATA 

/ 

NNSA 

I NTEGER*2 

42234 



NPT 

INTEGER*? 

5974 



NRC 

INTEGER*? 

6022 



NRDOF 

INTEGER*? 

8 

/DATA 

/ 

NRMOD 

INTEGER*? 

4 

/DATA 

/ 

NROT 

I NTEGER+2 

42212 



NSA 

INTEGER*? 

158 

/DATA 

/ 

NSJ 

INTEGER*? 

4'?'?32 



NSL 

INTEGER* 2 

166 

/DATA 

/ 

N3TAT 

INTEGER*? 

42216 . 



NXTC 

INTEGER*? 

172 

/DATA 

/ 

NZ 

INTEGER*? 

1758 



RF'Ml 

REAL 

174 

/DATA 

/ 

RZ 

REAL 

1766 



RZ 1 

REAL 

1790 



S 

REAL 

3734 



SCALE 

REAL 

42226 



SPEED 

REAL 

1814 



TAPE4 

CHAR* 14 

10 

/DATA 

/ 

THETA 

REAL 

422'?'? 



TITL 

CHAR* 1 

10 

/DATA 

/ 

W 

REAL 

1278 



WC 

REAL 

159 



WK 

REAL*B 

318 



WR 

REAL 

214 



X 

REAL 

27B 



Z 

REAL *8 

0 

/MEM 

/ 

ZETAC 

REAL 

2 



ZRPM 

REAL 

58 
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1 94 #PL0T. FOR*#**#*#****#***#***#*##***#**########***##**##*###*#*#**#*# 

195 C 

196 C SUBROUTINE PLOT 

197 C 

198 C; ROTOR DYNAMICS ANALYSIS PROGRAM 

199 C 

200 C* ********************************************************************** 

20 1C 


202 SUBROUTINE PLOT (RZ, RZ1 , RF'Ml > 

203 C 

204 CHARACTER NUMBER*6, NUM2 < 10) *1 

205 C 

206 EQUIVALENCE (NUM2 (5) , NUMBER) 

207 C 

208 DIMENSION RZ < 6 ) , RZ 1 < 6 ) , ZETA < 4 > 

209 C 

210 EXTERNAL JCOL,JROW 

211 C 

212 C COMMON 

213 C 

214 COMMON /QQYTIC/KNTY, JYTICC ( 30 ) , JYTICR ( 30 ) 

215 COMMON /RANGE/XRANGE (5) , YRANGEC5) 

216 C 

217 C ZETA = SORT (1-CR*CR) *9. 54929 / CR : 
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218 

219 

220 
221 



226 

227 

228 

229 

230 

231 



236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 


249 

250 

251 



256 

257 


253 


18: 3 
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C WHERE: CR=CRITICAL DAMPING RATIO 

C 

DATA ZETA/954. 9, 381 . 8, 190.7,95.01/ 

DATA NUM2/’R’ , ’P’ , -M’ , ’=’ ,6*’ ’/ 

DATA 11,12,13,14,15, 18/1,2,3,4,5,8/ 

C 

C INITIALIZE CRT PLOT 

C 

CALL QSMODE < 6 ) 

C 

C SCALE AXES 

C 

XRANGE(Il) = R Z 1 (13) 

XRANGE (12) = RZ 1(14) 

5 CALL SCALE (XRANGE, 8. , 12, II ) 

XRANGE (15) = XRANGE (13) + 18 * XRANGE (14) 

C ENSURE ENOUGH ROOM FOR TITLING 

IF ( XRANGE (15) /XRANGE ( 14) . LT .1.9) THEN 
XRANGE ( 12) =XRANGE ( 12) +X RANGE (14) 

GOTO 5 

ELSE I F ( XRANGE ( I3> /XRANGE (14) .GT.-1.9) THEN 
XRANGE (ID =XRANGE (ID -XRANGE (14) 

GOTO 5 
END IF 
C 

YRANGE (II) = 0. 

YRANGE ( 12) = RZ(I4) 

CALL SCALE (YRANGE, 5. , 12,11) 

YRANGE (15) = YRANGE (13) + 15 * YRANGE (14) 

C 

C DEFINE PLOT PIXEL WINDOW 

C 

CALL QPLOT ( IT , 638, II, 198, XRANGE (13) , XRANGE (15) ,0. , YRANGE ( 15) , 

+ 0. , 0. , 0, 1 . , 1 . ) 

C 

C DRAW AXES 

C 

CALL QAXES (XRANGE ( 13) , XRANGE (15) , YRANGE (13) , YRANGE ( 15) , XRANGE (14) , 
+ XRANGE ( 14) / 12, YRANGE ( 14) , YRANGE ( 1 4) / 12) 

C 

C LABEL AXES 

C 


260 CALL QF'TXT ( 14, ’REAL’ , 13,74, 1 1 ) 

261 CALL QPTXT (10, ’ IMAG. (CFM) ’ , 13, JYTICC(KNTY) / 18+13, 23) 

262 C 

263 WRITE (NUMBER, 8000) XRANGE (14) 

264 CALL QPTXT (6, NUMBER, 13, JCOL (XRANGE ( 14) ) /I8-I3, II) 

265 C 

266 WRITE (NUMBER, 8000) YRANGE (14) 

267 CALL QPTXT (6, NUMBER, 13, J YT ICC (KNTY ) / 18+ 13, JROW (YRANGE (14) ) /IB) 

268 C 

269 C DRAW BORDER 

270 C 

271 CALL QLINEfO, 11,0, 198, 13) 

272 CALL QRAST ( I 1, 198, 13, 636) 

273 CALL QL1NE(637, 197,637, II, 13) 

274 C 

275 C DRAW DAMPING INTERVALS 

276 C 
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277 


JC=JC0L (-YRANGE ( 15) /ZETA(Il) ) 

278 


IF(JC.GT.BO) THEN 

279 


CALL QLINE (JC. 197, JC, 196, 13) 

280 


CALL QPTXT <12, ’17.’ , I3,JC/I8,23> 

281 


END IF 

282 

C 


283 


JC=JCOL (-YRANGE (15) /ZETA ( 12) ) 

284 


IF (JC. ST. 80) THEN 

285 


CALL QLINE (JC, 197, JC, 196, 13) 

2B6 


CALL QPTXTU4, ’2.57.’ , 1 3 , JC/ 1 8- 1 1 , 23 

287 


END IF 


c 


289 


JR=JROW (-XRANGE ( 13) *ZETA ( 13) ) 

290 


IFfJR.LT. 174) THEN 

29 1 


CALL QRAST (I 1 , JR, 13, 13) 

292 


CALL QPTXT (12, ’57.’ , 13, 1, JR/ 18+11) 

293 


END IF 

294 

c 


295 


JR=JROW (-XRANGE <I3)*ZETA(I4> ) 

296 


IFtJR.LT. 174) THEN 



CALL QRAST ( I 1 , JR, 13, 13) 

298 


CALL QPTXT <13, ’ 107.’ , 13, 1, JR/I8+I 1) 

299 


END IF 

300 

c 


301 


CALL QPTXT (7, ’ DAMPING’ ,13,11, 23) 

302 

c 


303 

c 

-WRITE STARTING RPM 

304 

c 


305 


WRITE (NUMBER, 8000) RF'Ml 

306 


CALL QPTXT < 10, NUM2, 13,69,22) 

307 

c 


308 

c 

-FORMAT STATEMENTS 

309 

c 


3 1 0 

8000 

FORMAT <F6.0> 

31 1 

c 


312 


END 


Name 

Type 

Offset 

P 

Cl ass 

I 1 

INTEGER*2 

42420 



12 

INTEGER*2 

42422 



13 

INTEGERS 

42424 



14 

INTEGERS 

42426 



15 

I NTEGER+2 

42428 



18 

I NT EGER* 2 

42430 



JC 

INTEGER*2 

42432 



JCOL 




EXTERNAL 

JR 

INTEGER*2 

42434 



JROW 




EXTERNAL 

JYTICC 

INTEGER*2 



/QQYTIC/ 

JYTICP. 

INTEGER*-2 

62 


/QQYJIC/ 

KNTY 

INTEGER*2 

0 


/QQYTIC/ 

NUM2 

CHAR-x-1 

42410 



NUMBER 

CHAR*6 

42414 



RPMl 

REAL 

B 

* 


RZ 

REAL 

0 

* 


RZ1 

REAL 

4 

* 


XRANGE 

REAL 

0 


/RANGE / 

YRANGE 

REAL 

20 


/RANGE / 
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8 



*J COL* ******************************************************* ******* 

C 

C FUNCTION JCOL 

C 

C ROTOR DYNAMICS ANALYSIS PROGRAM 

C 

C************************* *********************************** *********** 

c 

FUNCTION JCOLiXi 
C 

COMMON /RANGE/ XRANGE <5) , YRANGE <5> 

C 

JC0L=637* (X-XRANGE (3) ) /< XRANGE (5) -XRANGE ( 3) > +1 
C 

END 


Name Type 


Offset P Class 


X REAL 
XRANGE REAL 
YRANGE REAL 


O * 

O /RANGE / 

20 /RANGE / 


326 * JROW *************************************************************** 

329 C 

330 C FUNCTION JROW 

331 C 

332 C ROTOR DYNAMICS ANALYSIS PROGRAM 

333 C 

334 C** ************************************************************** ******* 
FUNCTION JROW ( Y) 

COMMON /RANGE/XRANGE (5) , YRANGE <5) 

JR0W=197* (Y-YRANGE (3) ) / (YRANGE (5 > -YRANGE (3) > +1 
END 


335 C 

336 

337 C. 
' 338 

339 C 

340 

341 C 

342 


Name 

Type 

Offset 

P Class 


XRANGE 

REAL 

O 

/RANGE 

/ 

Y 

REAL 

0 

* 


YRANGE 

REAL 

20 

/RANGE 

/ 


Name 

Type 

Size 

Cl ass 

DATA 


198 

COMMON 

F0RT03 



SUBROUTINE 

JCOL 

INTEGER*2 


FUNCTION 

JROW 

INTEGER*2 


FUNCTION 

MEM 


57600 

COMMON 

MOD 


10160 

COMMON 

PLOT 



SUBROUTINE 
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LH U» <A 
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2 Line* 
XES 
OrD 

0CLE4R 

ccs i : 

CuIN'E 


csn j : 

rang; 


SCALE 
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SUBROUTINE 

SUBROUTINE 

SUBROUTINE 

SUBROUTINE 

SUBROUTINE 

SUBROUTINE 

SUBROUTINE 

SUBROUTINE 

connON 

SUBROUTINE 

SUBROUTINE 

CONNON 

F ! R 3 

SUBROUTINE 


Pass One 


No Errcrs Defected 
342 Source Lines 
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ClI ii'i 



D 


1 

1 

1 

1 

1 

i 


1 

1 

1 

1 


Li nett 
1 


4 

5 

6 

7 

8 
9 

10 
1 1 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 


24 

25 

26 

27 

28 

29 

30 

31 


34 

35 

36 

37 
33 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

5 1 


54 

55 

56 

57 

58 

59 
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♦F0RT03. FOR*********-***** ******************* ***•*#•* ******* *************** 

C 

C SUBROUTINE F0RT03 

C 


C***************#-**** *********#******#■»*****■»-**** * *■**■*■**«■*** ♦a-****** *** 

c 

C SUBROUTINES UTILIZED IN F0RT03 ARE CALLED 

C IN THE FOLLOWING ORDER: 


C 

C MATX FORMS THE MATRIX ADDITIONS INTO THE 

C NORMALIZED DYNAMICAL MATRIX "A" 

C 

C EIGRF FROM THE IMSL LIBRARY. SOLVES A GENERAL 

C MATRIX FOR COMPLEX ROOTS AND EIGENVECTORS 

C 

C. ANSR SAVES ITERATION STEP RESULTS AND PLOTS 

0 - EIGENVALUES ON CRT (ROOT LOCUS) 

C 


C*************** ************************************************** **•*-•** 
C 

^STORAGE: 2 
C 


C 

C 


c: 


C 


C 


C 

C- 

C 


SUBROUTINE F0RT03 < A, AC, AR, DMP, FG, GEAR, JFUN, NPT, NRC, W, S, SPEED, WC, 
+ WR, ZETAC, FUNC, LCDQF', LRDOF, LRMOD, LDYN, LSA, LSJ , 

+ LPT, LG, I CASE , I ROT , WK, G, Z , ZRPM) 


CHARACTER 

REALMS 

INTEGER 


TITL <72, 2) *1 

A (LDYN, 1 ) , WK< 1) , GEAR (LRMOD, 1 ) , Z (2, LDYN, 1 ) 

JFUN (LSJ, 1) , NF'T ( 1 ) , NRC (LSA, 2. 1) , ICASEfl ) , IROT(l) ,NZ (4) 
NSA ( 4 ) 


DIMENSION 


+ 


AC (LCDQF, 1) ,AR (LRDOF, 1 ) , WC ( 1 ) , WR ( 1 ) ,S(LSA, 1) ,G(LG, 1) , 
DMP (LSA, 'll , FG (LPT, 1) , SPEED (LPT, 1) , ZETAC (11 , FUNC ( 1 ) , 
ZRPM ( 1 ) , W ( 2, 1 > 


COMMON 

+ 

+ 


/DATA/NGYRO, NCMOD, NRMOD, NCDOF, NRDOF, TITL, KRF'M, NFGEN, 
NSA, NSL, IF'RT, KCRT , NXTC, RPM1 , DRF'M, NI , FHIGH, FLOW, 
IF'LTF, IPRT2, IPRT3 


MAIN ROUTINE 


NMODES=NRMOD+NCMOD 
DO 200 IRF'M = 1 , NI + 1 


RPM = RF'Ml + < IRFM - 1) * DRF’M 
WRITE (6, 36) TITL, RPM 
C 

C UPDATE FUNCTION GENERATORS 

C 

DO 100 1=1, NFGEN 
DO 10 J = 1 , NF’T ( I ) — 1 
10 IF (RF'M.LT. SPEED (J, I) ) GOTO 100 
100 FUNC ( I ) =F6 ( J— 1 , I ) + (FG ( J , I ) -FG ( J— 1 , I ) ) * (RPM— SPEED ( J— 1 , I) ) / 

+ (SPEED ( J , I ) -SPEED ( J-l , I ) ) 

C 

C ZERO THE DYNAMICAL MATRIX 

C 


DO 400 1=1 , 2*NM0BES 
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CO u 



7 


D 

Li nett 

2 

60 

3 

61 

1 

62 

1 

63 

1 

64 

1 

65 

2 

66 

1 

67 

1 

68 

1 

69 

1 

70 

1 

71 

1 

72 

1 

73 

1 

74 

1 

75 


76 

2 

77 

3 

78 

1 

79 

1 

80 

2 

81 

2 

82 

2 

83 

1 

84 

1 

85 

1 

86 

1 

87 

1 

88 

1 

89 

1 

90 

1 

91 

1 

92 

1 

93 


94 


95 


96 


97 


98 


99 


1 00 


101 


102 


103 


104 


1 


400 

C 

C 

C 


C 

C- 

C 



DO 400 J=1,2*NM0DES 
A < I , J > =0 . 0 
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-SET THE IDENTITY MASS PARTITION OF A 

DO 300 I = 1 , NMODES 
A ( I +NMODES, I ) =1.0 

-LOAD NSL’S AND NSA’ S INTO A 

CALL MAT.X < AC , AR , DMP , J FUN , LCDDF , LRDOF , LSA, LSJ , LDYN , NRC , S . 

A , G , LG , WK , FUNC ) 

-ADD SPECTRAL MATRIX, DAMPING MATRIX, AND GYROSCOF'ICS TO A 

DO 410 1=1, NRMOD 

A ( I , NMODES+I ) = A < I , NMODES+ 1 ) - WR(I)*WR(I) 

DO 410 J = 1 , NRMOD 

A ( I , J ) = A ( I , J ) - GBARII, J)*RF'M*0. 1047197 

DO 430 ' 1=1, NCMOD 

IR = NRMOD + I 

A ( I R , I R ) = A(IR,IR) - 2. *ZETACd)*WCd) 

A ( IR, NMODES+IR) = A < IR, NMODES+ IR) - WC(I)*WC<1> 

-CALCULATE EIGENVALUES AND EIGENVECTORS 


CALL EIGRF < A, 2*NM0DES, LDYN , W, Z , LDYN, WK, IER) 

C 

C STORE RESULTS 

C 


CALL ANSR ( Z , LDYN, RPM, W, ZRPM) 

C 

200 CONTINUE 
C 

C WRITE END-OF-CASE RECORD ON EIGENVECTOR FILE 

C 

WRITE <3> RPM, -9999, <W<J,1),J=1,2>, 

+ ( (SNGL ( Z ( J , L, 1) ) , J=l,2) ,L=1, NMODES) 

C 

C FORMAT STATEMENTS 

C 

36 FORMAT (1H1/5X, 72A/ /5X , 72A/ //5X , ’ ROTOR SPIN SPEED =’,F8.0, ’ RPM ? ) 
C 

END 


Name 

Type 

Offset 

P 

Cl ass 


A 

REAL*8 

0 

* 



AC 

REAL 

4 

* 



AR 

REAL 

8 

* 



DMP 

REAL 

12 

* 



DRF'M 

REAL 

178 


/DATA 

/ 

FG 

REAL 

16 

* 



FHIGH 

REAL 

184 


/DATA 

/ 

FLOW 

REAL 

188 


/DATA 

/ 

FUNC 

REAL 

60 

* 



G 

REAL 

108 

* 



GBAR 

REAL*8 

20 

* 
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I 

INTEGER*? 

24 




I CASE 

INTEGER*? 

. 96 

* 



IER 

INTEGER*2 

78 




IFLTF 

INTEGER*? 

19? 


/DATA 

/ 

I PRT 

INTEGER*? 

16B 


/DATA 

/ 

IPRT2 

INTEGER*? 

194 


/DATA 

/ 

IPRT3 

INTEGER*? 

196 


/DATA 

/ 

IR 

INTEGER*? 

76 




I ROT 

INTEGER*? 

100 

* 



IRPM 

INTEGER*? 

12 




J 

INTEGER*? 





jFuN 

INTEGER*? 

24 

* 



KCRT 

INTEGER*?' 

170 


/DATA 

/ 

KRPM 

INTEGER*? 

154 


/DATA 

/ 

L. 

INTEGER*? 

8? 




LCDOF 

INTEGER*? 

64 

* 



LDYN 

INTEGER*? 

76 

* 



LG 

INTEGER*? 

9? 

* 



LPT 

INTEGER*? 

88 

* 



LRDOF 

INTEGER*? 

68 

* 



LRMOD 

INTEGER*? 

72 

* 



LSA 

INTEGER*? 

80 

* 



LSJ 

INTEGER*? 

84 

* 



NCDOF 

INTEGER*? 

6 


/DATA 

/ 

NCMOD 

INTEGER*? 

2 


/DATA 

/ 

NFGEN 

INTEGER*? 

156 


/DATA 

/ 

NGYRO 

INTEGER*? 

0 


/DATA 

/ 

N I 

INTEGER*? 

182 


/DATA 

/ 

NMODES 

INTEGER*? 

10 




NF'T 

INTEGER*? 

28 

* 



NRC 

INTEGER*? 

o>2 

* 



NRDOF 

INTEGER*? 

8 


/DATA 

/ 

NRMOD 

INTEGER*? 

4 


/DATA 

/ 

NSA 

INTEGER*? 

158 


/DATA 

/ 

NSL 

INTEGER*? 

166 


/DATA 

/ 

NXTC 

INTEGER*? 

172 


/DATA 

/ 

NZ 

INTEGER*? 

2 




RPM 

REAL 

20 




RPM1 

REAL 

174 


/DATA 

/ 

S 

REAL 

40 

* 



SNGL. 




INTRINSIC 

SPEED 

REAL 

44 

* 



TITL 

CHAR* 1 

10 


/DATA 

/ 

W 

REAL 

36 

* 



WC 

REAL 

48 

* 



WK 

REAL*8 

104 

* 



WR 

REAL 

52 

* 



Z 

REAL*8 

112 

* 



ZETAC 

REAL 

56 

* 



ZRF'M 

REAL 

116 

* 




105 

106 

107 

108 
109 
1 10 
111 


*MATX . FOR*************************************************************** 


C 

C 

C 

C 

C 

C 


MATX COORDINATES THE INTRASROUP, INTERGROUP, MATRIX 

ADDITIONS AND THE CALCULATION OF THEIR STIFFNESS 
AND DAMPING VALUES (MULTIPLIED BY THE RESPECTIVE 
FUNCTION GENERATOR). 
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D Line# 
1 12 

1 13 

1 14 

115 

1 16 

1 17 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

1 133 

2 134 

135 

1 36 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 
1 149 

1 150 

1 151 

1 152 

1 153 

1 154 

1 155 

2 156 

2 157 

1 158 

1 159 
1 1 60 
1 161 

2 162 

2 163 

2 164 

1 165 

l 166 
1 167 

1 168 
1 169 

1 1 70 


Page 4 
08-13-84 
18:43:52 

1 7 Microsoft F0RTRAN77 03.13 8/05/83 
C»+**»* **##*#*####■#*###*####*#*#**#**#**####*##**#*## ##*# *#*#*•*****#*#■** 


c 


c 

c 


c 

c 

c 


c 

c 

c 


SUBROUT I NE MAT X < AC , AR , DMP , J FUN . LCDQF , LRDOF , LS A, LS J , LD YN , NRC . S . 
+ A , G , LG , WK , FUNC ) 


INTEGER 

DIMENSION 

REAL*8 


JFUN(LSJ, 1>,NRC(LSA,2, 1) ,NSA(4> 

AR (LRDOF, 1 ) , AC (LCDOF , 1 > ,DMP(LSA, 1) ,S<LSA, 1) , 
G (LG, 1 ) , FUNC (1 ) 

A (LDYN, 1) , WK ( 1 ) 


CHARACTER TITL(72,2)*1 


COMMON 

+ 

+ 


/DATA/NGYRO, NCMOD, NRMOD, NCDOF, NRDOF, TITL, KRPM, NFGEN, 
NSA, NSL, IPRT , KCRT , NXTC, RPM1 , DRPM, NI , FHIGH, FLOW, 
IPLTF, IPRT2, IPRT3 


ZERO THE G MATRIX 


DO 100 1=1, LG 

DO 100 J = 1 , LG 

100 G(J, I) = 0.0 
C 

C TRANSFORM MATRIX ADDITIONS INTO NORMAL COORDINATES, 

C AND ADD THEM TO THE SYSTEM DYNAMICAL MATRIX "A". 

C 

C 1) ROTOR-TO-ROTOR ADDITIONS 

C 2) ROTOR- TO-CASING ADDITIONS 

C 3) CASING-TO-ROTOR ADDITIONS 

C 4) CASING-TO-CASING ADDITIONS 

C 


N = 4*NSL 

NM0DE5 = NRMOD + NCMOD 

I K=0 


C 

C 

C- 

C 


DO 1 000 IP = 1,4 

IF ( NSL+NSA (IP) .EQ. 0 > GOTO 1000 
— ADD STIFFNESS ADDITIONS 


200 

1 


C 



c 


1 

1 


IF (NSL. NE. O) THEN 
DO 200 I = 1 , N 

G (NRC ( I, 1 , IP) ,NRC< 1,2, IP) > = S(I, IP) *FUNC ( JFUN (1,1)) + 

G < NRC (I, 1, IP) , NRC (I, 2, IP) > 

END IF 

IF(NSA<IP) .NE.O) THEN 
DO 250 I = 1, NSA OP) 

NN=N+I 

G (NRC (NN, 1, IP) , NRC (NN, 2, IP) )=S(NN, IP) *FUNC (JFUN (NN+ IK, 1 ) !+ 

G (NRC (NN, 1 , IF - ) , NRC (NN, 2, IF') ) 

ENDIF 

IF ( IF'. EQ. 1 ) CALL TRANS (AR, LRDOF, NRDOF, NRMOD, G, LG, AR, LRDOF , 
NRDOF, NRMOD, A < 1 , NMODES+ 1 ) , LDYN, WK) 

IF (IP. ED. 2) CALL TRANS (AR, LRDOF , NRDOF, NRMOD, G, LG, AC , LCDOF , 
NCDOF, NCMOD, A ( 1 , NMDDES+NRMOD+ 1 ) , LDYN, WK ) 
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1 

171 



IF (IP. EQ. 3) CALL TRANS ( AC, LCDOF, NCDOF, NCMOD, G, LG, AR, LRDOF . 

1 

172 


1 

NRDOF , NRMOD , A ( NRMOD+ 1 , NMODES+ 1 ) , LDYN, WK ) 

1 

173 



I F < I P . EQ . 4 > CALL TRANS (AC, LCDOF, NCDOF, NCMOD, G, LB, AC , LCDOF . 

1 

174 


1 

NCDOF , NCMOD , A ( NRMOD+ 1 , NMODES+NRMOD+ 1 ) , LDYN , WK 

1 

175 

C 



1 

176 

c- 


— RESET G 

1 

177 

c 



1 

178 



DO 300 1=1, NSA (IP) +N 


179 


300 

G(NRC(I, 1, IP) ,NRC(I,2, IP) ) = 0.0 

1 

180 

c 


f 

1 

181 

c- 


— ADD DAMPING MODIFICATIONS 

1 

182 

c 



1 

183 



IF(NSL.NE.O) THEN 

1 

184 



DO 350 I = 1 , N 

2 

185 


350 

G <NRC< 1 , 1 , IP) ,NRC( 1,2, IP) ) = DMP ( I , IP) *FUNC ( JFUN ( 1 , 2) ) + 

2 

186 


1 

G(NRC(I, 1, IP) ,NRC(I,2, IP) ) 

i 

187 



END IF 

i 

188 

c 



i 

189 



IF (NSA (IF') . NE. 0) THEN 

i 

190 



DO 400 I = 1, NSA (IP) 

2 

191 



NN=N+I 

2 

192 


400 

G (NRC (NN, 1, IP) , NRC (NN, 2, IP) )=DMP(NN, IP) *FUNC ( JFUN (NN+IK, 2) )+ 

2 

193 


1 

G(NRC(NN, 1, IP) ,NRC(NN,2, IF') ) 

i 

194 



ENDIF 

i 

195 

c 



i 

196 



IF ( IP. EG. 1) CALL TRANS (AR, LRDOF, NRDOF, NRMOD, G. LG, AR, LRDOF, 

i 

197 


1 

NRDOF . NRMOD , A , LD YN . WK ) 

i 

198 



IF ( IP. EQ. 2) CALL TRANS (AR, LRDOF, NRDOF , NRMOD, G, LG, AC, LCDOF, 

i 

199 


1 

NCDOF , NCMOD , A ( 1 , NRMOD+ 1 > , LD YN , WK ) 

i 

200 



IF (IP. EQ. 3) CALL TRANS (AC, LCDOF, NCDOF , NCMOD, G, LG, AR, LRDOF , 

i 

201 


1 

NRDOF, NRMOD, A (NRMOD+1 , 1 > , LDYN, WK ) 

i 

202 



IF (IP. EQ. 4) CALL TRANS (AC, LCDOF, NCDOF , NCMOD. G. LG, AC, LCDOF, 

i 

203 


1 

NCDOF , NCMOD , A ( NRMDD+ 1 , NRMOD+ 1 > , LDYN , WK ) 

i 

204 

c. 



i 

205 

c- 


— RESET G 

i 

206 

c 



i 

207 



DO 450 1=1, NSA (IP) +N 

<■[> 

208 


450 

G(NRC(I, 1, IP) ,NRC(I,2, IP) ) =0.0 

i 

209 

c 



i 

210 

1 000 

IK = IK + NSA (IP) 


211 

c 




212 



END 


Name 

Type 

Offset 

P 

Cl ass 


A 

REAL*8 

44 

* 



AC 

REAL 

0 

* 



AR 

REAL 

4 

* 



DMP 

REAL 

B 

* 



DRPM 

REAL 

178 


/DATA 

/ 

FHIGH 

REAL 

184 


/DATA 

/ 

FLOW 

REAL 

188 


/DATA 

/ 

FUNC 

REAL 

60 

* 



G 

REAL 

48 

* 



I 

INTEGER*2 

148 




IK 

INTEGER*2 

168 




IP 

INTEGER*2 

170 




IF'LTF 

I NTEGER*2 

192 


/DATA 

/ 

IF'RT 

INTEGER*2 

16B 


/DATA 

/ 
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IPRT 2 

INTEGERS 

194 


/DATA 

/ 

IPRT3 

INTEGERS 

196 


/DATA 

/ 

J 

INTEGER*2 

156 




JFUN 

INTEGER*2 

12 

* 



KCRT 

INTEGER*2 

170 


/DATA 

/ 

KRPM 

INTEGER*2 

154 


/DATA 

/ 

LCDOF 

INTEGER*2 

16 

* 



LDYN 

INTEGER*2 

32 

* 



LG 

INTEGER*2 

cr H 

* 



LRDOF 

INTEGER*2 

20 

* 



LSA 

INTEGER*2 

24 

* 



L3J 

I NT EGER s-2 

00 

* 



N 

INTEGER*2 

164 




NCDOF 

INTEGER*2 

6 


/DATA 

/ 

NCMOD 

INTEGER*2 

2 


/DATA 

/ 

NFGEN 

INTEGER*2 

156 


/DATA 

/ 

NGYRO 

INTEGERS 

0 


/DATA 

/ 

NI 

INTEGER*2 

182 


/DATA 

/ 

NMODES 

INTEGER*2 

166 




NN 

INTEGER*2 

184 




NRC 

INTEGER*2 

36 

* 



NRDOF 

INTEGER*2 

8 


/DATA 

/ 

NRMOD 

INTEGER*2 

4 


/DATA 

/ 

NSA 

INTEGER*2 

158 


/DATA 

/ 

NSL 

INTEGER*2 

1 66 


/DATA 

/ 

NXTC 

INTEGER*2 

172 


/DATA 

/ 

RF'Ml 

REAL 

174 


/DATA 

/ 

S. 

REAL 

40 

* 



TITL 

CHAR* 1 

10 


/DATA 

/ 

WK 

REAL*8 

56 

* 




hi cr Dsa-f t 
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213 * ANSR. FOR********************#**************************************-**** 

214 C; 


215 C ANSR ORGANIZES OUTPUT INFORMATION AND PLOTS, SAVES 

216 C THAT INFORMATION PER USER REQUEST. 

217 C ANSR CALLS SUBROUTINE ZSORT. 

218 C 

219 C*********************************************************************** 

220 C 

221 SUBROUTINE ANSR < Z , LDYN, RPM, W, ZRF'M) 

O'"? 


223 

224 C 

225 

226 C 
^07 

228 C 

229 

230 C 

231 

232 C 


REAL*8 

DIMENSION 

LOGICAL 

EXTERNAL 

CHARACTER 


Z (2, LDYN, 1) ,WZ 

ZRPM < 1 ) ,W<2, 1) , NSA ( 4 ) 

PLOT 

JCOL, JROW 

TITL <72,2>*1,TAPE4*10 


233 COMMON /DAT A /NGYRO , NCMOD , NRMOD , NCDOF , NRDOF , T I TL , K.RPM , NFGEN , 

234 + NSA, NSL , IPRT , KCRT, NXTC, RF’Ml , DRPM, NI , FHIGH, FLOW, 

235 + IPLTF, IPRT2, IPRT3 

236 C 

237 COMMON /RANGE/XR (5) , YR (5) 

238 C 

239 C COMPRESS THE EIGENVALUE AND EIGENVECTOR ARRAYS 


RI/RD84-191 

D-88 


D 

Li ne# 

1 


7 Microsof 


240 

C 


(CORRECTING FOR- REAL ROOTS) 


241 

c 




r>42 



N = NRMOD + NCMOD 


243 



K— 1 


244 

c 




245 



DO 20 I = 1 , N 

1 

246 



IFI X=I*2— K 

1 

247 



IF(W<2, IFIX) .EQ.O. ) THEN 

1 

248 



IF(K.EQ.l) THEN 

1 

249 



K=2 

1 

250 



ELSE 

* 




1 / . 4 

1 





1 

252 



IFIX=I*2— K 

1 

253 



END IF 

1 

254 



END IF 

1 

255 



W(1,I)=W(1, IFIX) 

1 

256 



W(2, I)=W<2, IFIX) 

1 

257 



DO 20 J=1 , N 

2 

258 



Z ( 1 , J, I )=Z <1 , J+N, IFIX) 

2 

259 


20 

Z (2, J, I >=Z (2, J+N, IFIX) 


260 

c 




261 

c- 

— 

-SORT THE ARRAYS WITH RESPECT TO FREQUENCY 


262 

c 




263 



N2=N 


264 

c 




265 



DO 9 1=1, N-l 

i 

266 



N2=N2-1 

i 

267 



DO 9 J=1,N2 

2 

268 



IF (W(2,J) . LE.W(2,J+1 ) ) GOTO 9 


269 



WZ=W<1, J+l) 

2 

270 



W ( 1 , J + l ) =W ( 1 , J ) 


271 



W<1, J)=WZ 

O 

272 



WZ=W<2, J+l) 

n 

273 



W (2, J+l ) =W (2, J ) 

2 

274 



W(2, J)=WZ 


275 



DO 8 K=1 , N 

3 

276 



WZ = Z ( 1 , K, J + l ) 

3 

277 



Z ( 1 , K, J+l > =Z ( 1 , K, J ) 

3 

278 



Z ( 1 , K, J ) =WZ 

3 

279 



WZ=Z(2,K,J+1) 

3 

2B0 



Z(2,K, j + 'l)=Z(2,K,J) 

3 

281 


8 

Z (2, K, J ) =WZ 

2 

282 


9 

CONTINUE 


283 

c 




284 

c- 

— 

-DETERMINE WHETHER THE MODE SHAPES SHOULD 1 


2B5 

c 


PRINTING/PLOTTING LATER 


286 

c 




287 



PLOT=. FALSE. 


288 



IFUPRT3. EQ.O. OR. IPRT. EQ.O) THEN 


289 



J = 1 


290 


24 

IF(j.LE.KRPM) THEN 


291 



IF (RPM. EQ. ZRPM < J ) ) PLOT=.TRUE. 





J=J+1 


293 



GOTO 24 


294 



ENDIF 


295 



ENDIF 


296 

c 




297 

c- 

— 

-STORE AND PLOT RESULTS 


29B 

c 
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299 

300 

301 

302 

303 

304 

305 
1 306 

1 307 

1 308 

1 309 

1 310 

1 311 

1 312 

1 313 

1 314 

1 315 

1 316 

1 317 

1 318 

1 319 

1 320 

1 321 

1 322 

1 323 

1 324 

1 325 

1 326 

1 327 

1 328 

1 329 

330 

33 1 
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WR I TE ( TAPE4 , 8000 ) RPM 
1=69 
J=21 

CALL QPTXT ( 10, TAPE4, 3, I , J > 

WRITE <6. 7) 

C FOR EACH MODE, WRITE RESULTS AND PLOT ON THE CRT 

DO 35 1=1, N 

C = W<2, I) * 9. 54929 
WRITE (6, 30) I, (W(J,I),J=1,2),C 


C IF IN CRT WINDOW, PLOT EIGENVALUE 

IF <C. LE. YR (5) . AND. W < 1, I ) . BE. XR ( 3) . AND. W< 1, I) .LE. XR (5) > ‘THEN 
CALL QRAST < JCOL (W ( 1 , I) > — 1 , JROW(C) ,3,2) 

C. ........ IF FIRST RPM STEF*, PLOT SF'ECIAL SYMBOL 


I F ( RPM . EQ . RPM 1 . OR . RPM . EO. . RPM 1 +DRF'M*N I ) THEN 
CALL QSPNT <JC0L(W(1, I ) > , JROW ( C ) +1 , 3 ) 

CALL QSPNT <JC0L(W<1 , I> ) , JROW ( C ) - 1 , 3 > 

ENDIF 

C IF LAST RPM STEP, PLOT SPECIAL SYMBOL 

IF (RPM. ED. RPM1+DRF*M*NI ) THEN 

CALL QSPNT (JCOL (W ( 1 , I ) ) -1 , JROW(C) +1 , 3) 
CALL QSPNT (JCOL (W(l , I ) ) - 1 , JROW (C) -1 , 3) 
CALL QSPNT (JCOL ( W < 1 , I ) ) +1, JROW (0 + 1, 3). 
CALL QSPNT (JCOL (W<1, I) ) +1 , JROW (C> -1 , 3) 
CALL QSPNT (JCOL <W< 1, I > i . JROW (C) , 0) 

ENDIF 

ENDIF 


IF (.NOT. PLOT) GOTO 35 

C IF THIS MODE SHAPE IS TO BE PLOTTED, STORE SHAPE 

IF(C. GE. FLOW. AND. C.LE.FHIGH) WRITE<3> RPM, I , (W < J , I > , J=1 , 2) , 
+ < (SNGL ( Z ( J , L, I) ) , J= 1 , 2) ,L=1,N> 


35 CONTINUE 

C STORE EIGENVALUES 

WR I TE ( 2 ) ( (W(J, I) , J=l,2> , 1=1, N) 

C 

C FORMAT STATEMENTS 

C 

7 FORMAT (//5X, ’MODE’ , 1 IX, ’REAL’ , 14X, ’ IMAGINARY’ , 14X, ’CF'M’ /) 
30 FORMAT ( 4X , I4,3(5X, 1 PEIS. 5) ) 

8000 FORMAT (4H TO , F6.0) 

C 

END 


Name 

Type 

Offset F* 

A 

REAL 

0 * 

C 

REAL 

24 * 

D 

REAL*8 

40 + 

G 

REAL 

16 * 

I 

INTEGER* 2 

424 

J 

INT.EGER*2 

432 

K 

INTEGER+2 

440 

L 

INTEGER*2 

448 

LRA 

INTEGER+2 

4 * 

LRC 

INTEGER*2 

28 * 

LRD 

INTEGER+2 

44 * 

LRG 

INTEGER*2 

20 * 

M 

INTEGER+2 

456 

NCA 

INTEGEF;*2 

12 * 

NCC 

INTEGER*2 

36 * 
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NRA INTEGER*2 8 * 

NRC INTEGER*2 32 * 


WK 

REAL*8 

48 * 


400 SLIST 



Name 

Type 

Size 

Class 

ANSR 



SUBROUTINE 

DATA 


198 

COMMON 

EIGRF 



SUBROUTINE 

FQRT03 



SUBROUTINE 

JCOL 

INTEGER*2 


FUNCTION 

JRQW 

INTEGER*2 


FUNCTION 

MATX 



SUBROUTINE 

QF'TXT 



SUBROUTINE 

O.RAST 



SUBROUTINE 

GSPNT 



SUBROUTINE 

RANGE 


40 

COMMON 

TRANS 



SUBROUTINE 


Pass One No Errors Detected 
400 Source Lines 
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in w u 



D Line# 
1 


4 

5 

6 

7 

8 
9 

10 
1 1 
12 

1 3 

14 

15 

16 

17 

18 

19 

20 
21 


24 

25 

26 

27 

28 

29 

30 

31 


34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 


54 

55 

56 

57 

58 

59 


1 7 

^STORAGE: 2 
C ROUTINE NAME 
C 


C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c: 

c 

c 

c 

c 

c- 

c 


COMPUTER 
LATEST REVISION 
PURPOSE 

USAG^ 

ARGUMENTS A 


N 

IA 


IZ 


WK 

IER 


REGD. SUBROUTINES 


SUBROUTINE EIGRF 

INTEGER 

REAL*8 

REAL*4 


INTEGER 
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- EIGRF. FOR (FROM IMSL ROUTINE EIGRF) 


- IBM/SINGLE 

- MARCH 19, 1984 

- EIGENVALUES AND (OPTIONALLY) EIGENVECTORS OF 

A REAL GENERAL MATRIX IN FULL STORAGE MODE 

- CALL EIGRF ( A , N, I A, W , Z , I Z , WK, I ER ) 

- THE INPUT REAL GENERAL MATRIX OF ORDER N 

WHOSE EIGENVALUES AND EIGENVECTORS ARE 
TO BE COMPUTED. INPUT A IS DESTROYED. 

- THE INPUT ORDER OF THE MATRIX A. 

- THE INPUT ROW DIMENSION OF MATRIX A EXACTLY 

AS SPECIFIED IN THE DIMENSION STATEMENT IN 
THE CALLING PROGRAM. 

- THE OUTPUT COMPLEX VECTOR OF LENGTH N, 

CONTAINING THE EIGENVALUES OF A. 

NOTE - THE ROUTINE TREATS W AS A REAL VECTOR 
OF LENGTH 2*N. AN APPROPRIATE EQUIVALENCE 
STATEMENT MAY BE REQUIRED. SEE DOCUMENT 
EXAMPLE. 

- THE OUTPUT N BY N COMPLEX MATRIX CONTAINING 

THE EIGENVECTORS OF A. 

THE EIGENVECTOR IN COLUMN J OF Z CORRES- 
PONDS TO THE EIGENVALUE W(J>. 

NOTE - THE ROUTINE TREATS Z AS A REAL VECTOR 
OF LENGTH 2*N*N. AN APPROPRIATE EQUIVALENCE 
STATEMENT MAY BE REQUIRED. SEE DOCUMENT 
EXAMPLE. 

- THE INPUT ROW DIMENSION OF MATRIX Z EXACTLY 

AS SPECIFIED IN THE DIMENSION STATEMENT IN 
THE CALLING PROGRAM. IZ MUST BE GREATER 
THAN DR EQUAL TO N. 

- WORK AREA, THE LENGTH OF WK IS AT LEAST 2*N. 

- ERROR PARAMETER. (OUTPUT) 

TERMINAL ERROR 

IER = 128+J, INDICATES THAT EQRH3F FAILED 
TO CONVERGE ON EIGENVALUE J. EIGENVALUES 
J+l, J+2, . . . ,N HAVE BEEN COMPUTED CORRECTLY. 
EIGENVALUES 1,...,J ARE SET TO ZERO. 
EIGENVECTORS ARE SET TO ZERO. 

- EBALAF , EBBCKF , EHBCKF , EHESSF , EQRH3F 


< A, N, I A, W, Z. I Z , WK . IER) 

SPECIFICATIONS FOR ARGUMENTS 
N, I A, I Z , I ER 
A (IA, 1) , WK(N, 1) , Z (1) 

W (1 ) 

SPECIFICATIONS FOR LOCAL VARIABLES 
IZ2,K,L, I,N1,N2, II, JJ,NF'1,NPI, JW, J, 
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60 


* 

r IS,IG,IGZ 


61 



REAL*B ZERO, ONE 


62 



DATA ZERO, 0NE/0. 0,1.0/ 


63 

C 


INITIALIZE ERROR PARAMETERS 


64 

C 


FIRST EXECUTABLE STATEMENT 


65 



IER = 0 


66 



IZ2 = IZ+IZ 


67 

c 


PACK A INTO AN N BY N ARRAY 


68 



K = 1 


69 



L = 1 


70 



DO 20 0=1, N 

i 

71 



DO 20 1=1, N 

»•> 

72 



A ( K , L ) = A ( I , J ) 

2 

73 



K = K+l 

*■> 

74 



IF <K .GT. IA) K = 1 

I’j 

75 



IF <K -E0. 1) L = L+l 

*7 

76 


20 

CONTINUE 


77 



N1 = 1 


76 



N2 = Nl+1 


79 

c 


BALANCE THE INPUT A 


80 



CALL EBALAF (A,N,WK,K,L> 


81 

c 


IF L = 0, A IS ALREADY IN HESSENBERG 


82 

c 


FORM 


83 



CALL EHESSF ( A, K, L , N, WK ( 1 , N2) ) 


84 

c 


SET Z IDENTITY MATRIX 


85 



11 = 1 


86 



JJ = 1 


87 



NP1 = N+l 


88 



DO 30 1=1, N 

l 

89 



DO 25 0=1, N 

7 

90 



Z(II) = ZERO 

2 

91 



II = II+l 

o 

92 


'-ter 

IJ 

CONTINUE 

i 

93 



Z (00) = ONE 

i 

94 



00 = 00+NP1 

i 

95 


30 

CONTINUE 


96 



CALL EHBCKF ( Z , A, WK ( 1 , N2) , N, K, L > 


97 



CALL E0RH3F (A, N, K, L, W ( 1 > , W (N+l > , Z, IER) 


9a 



IF (IER .GT. 128) GO TO 40 


99 



CALL EBBCKF <WK,2,K,L,N> 


1 00 

c 


CONVERT W (EIGENVALUES) TO COMPLEX 


101 

c 


FORMAT 


102 


40 

z 

H 

II 

f-4 

m 

o 

Q 

i 

103 



NPI = N+I 

i 

104 



WK ( I , N 1 ) = W(NPI) 

i 

105 


45 

CONTINUE 


106 



OW = N+N 


107 



0 = N 


108 



DO 50 1=1, N 

i 

109 



W(OW-l) = W(0> 

i 

1 10 



W(OW> = WK ( J , N 1 ) 

i 

111 



OW = OW-2 

i 

112 



0 = 0-1 

i 

113 


50 

CONTINUE 


114 

c 


CONVERT Z (EIGENVECTORS) TO COMPLEX 


115 

c 


FORMAT Z ( I Z , N) 


116 



0 = N 


117 


60 

IF (0 .LT. 1) GO TO 9000 


118 



IF (W(0+0) .EQ. ZERO) GO TO 75 
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1 19 

C 



MOVE PAIR OF COMPLEX CONJUGATE 


120 

C 



EIGENVECTORS 


121 



IS = I Z2* < J-l > +1 



122 



IG = N* ( J— 2) +1 



1 23 



IGZ = IG+N 



124 

C 



MOVE COMPLEX CONJUGATE EIGENVECTOR 


125 



DO 65 I=1,N 


1 

126 



Z(IS) = Z < IG) 


1 

127 



Z (IS+1) = -Z (IGZ) 


1 

128 



IS = IS+2 


1 

129 



IG = IG'+l 


1 

1 30 



IGZ = IGZ+1 


1 

131 


65 

CONTINUE 



132 

C 



MOVE COMPLEX EIGENVECTOR- 


133 



IS = IZ2* ( J-2) +1 



134 



IG = IS+IZ2 



135 



DO 70 1=1 ,N 


1 

136 



Z (IS) = Z (IG) 


1 

137 



KIS+1) = -Z ( IG + 1 ) 


1 

138 



IS = IS+2 


1 

139 



IG = IG+2 


1 

140 


70 

CONTINUE 



141 



J = J-2 



142 



GO TO 60 



143 

c 



MOVE REAL EIGENVECTOR 


144 


75 

IS = I Z2* < J-l ) +N+N 



145 



IG = N*J 



146 



DO 80 1=1. N 


1 

147 



Z(IS-l) = Z < I G ) 


1 

148 



Z (IS) = ZERO 


1 

149 



IS = I S-2 


1 

150 



IG = IG— 1 


1 

151 


80 

CONTINUE 



152 



J = J-l 



153 



GO TO 60 



154 

c 



Z IS NOW IN COMPLEX FORMAT • Z ( I Z , N) . 


155 9000 CONTINUE 

156 END 


Name Type 


Offset. P Class 


A 

. REAL*B 

0 * 

I 

INTEGER*? 

32 

IA 

INTEGER*? 

8 * 

IER 

INTEGER*? 

28 * 

IG 

INTEGER*? 

80 

IGZ 

INTEGER*? 

82 

II 

INTEGER*? 

44 

IS 

INTEGER*? 

78 

IZ 

INTEGER*? 

20 * 

IZ2 

INTEGER*? 

18 

J 

INTEGER*? 

24 

JJ 

INTEGER*? 

46 

JW 

INTEGER*? 

70 

K 

INTEGER*? 

20 

L 

INTEGER*? 

22 

N 

INTEGER*? 

4 * 

N 1 

INTEGER*? 

40 

N2 

INTEGER* 2 

42 
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lb CD 



D Line# 1 7 


NP1 

I NTEGER*2 

48 

NF'I 

INTEGER* 2 

68 

ONE 

REAL*8 

10 

W 

REAL 

12 * 

WK 

REAL*8 

24 * 

2 

REAL*8 

16 * 

ZERO 

REAL*8 

O 

J- 
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157 

c 























160 



SUBROUTINE EBALAF <A.N,D,K,L> 


1 6 1 

c 



SPECIFICATIONS FOR ARGUMENTS 


162 



INTEGER N , K , L 


163 



REAL*8 A (N, 1 ) , D ( 1 > 


164 

c 



SPECIFICATIONS FOR LOCAL VARIABLES 


165 



INTEGER L1,K1, K1P1,KU, JJ, J, I,LL,N0C0NV 


166 



REALMS R,C,F,G,B,S,B2, ONE , ZER0,P95 


167 



DATA B/ 16. 0/ , B2/256. 0/ 


168 



DATA ZER0/0. 0/ , ONE/ 1.0/, F'95/ . 95/ 


169 

c 



REDUCE NORM A BY DIAGONAL SIMILARITY 


170 

c 



TRANSFORMATION STORED IN D 


171 

c 



FIRST EXECUTABLE STATEMENT 


172 



LI 

= 1 


173 



K1 

= N 


174 

c 



SEARCH FOR ROWS ISOLATING AN EIGEN- 


175 

c 



VALUE AND PUSH THEM DOWN 


176 


5 

K1P1 = Kl+1 


177 



IF 

(Kl.LT.l) GO TO 35 


178 



K 1 1 

. =K 1 


179 



DO 

30 J J=1 , K1 1 

1 

180 




J = K1P1-JJ 

1 

181 




R = ZERO 

1 

182' 




DO 10 1=1 ,K1 

2 

183 




IF (I.EQ.U) GO TO 10 


184 




R=R+DABS < A ( J . I) ) 

2 

185 


10 


CONTINUE 

i 

186 




IF (R. NE. ZERO) GO TO 30 

i 

187 




D ( K 1 ) = J 

i 

188 




IF (J.EQ.K1) GO TO 25 

i 

189 




DO 15 1 = 1, I<1 

2 

1 90 




F = A(I,J) 

2 

191 




A ( I , J ) = A ( I , K1 ) 

jL. 

192 




A ( I , K 1 ) = F 

<-> 

193 


15 


CONTINUE 

1 

194 




DO 20 I=L1 , N 

2 

195 




F = A ( J, I ) 

o 

196 




~ A < J , I ) = A ( K.1 , I) 

2 

197 




A ( K 1 , I > = F 

2 

198 


20 


CONTINUE 

i 

199 


25 


K1 = K 1-1 

i 

200 




GO TO 5 

i 

201 


30 

CONTINUE 


202 

c 



SEARCH FOR COLUMNS ISOLATING AN 


203 

c 



EIGENVALUE AND PUSH THEM LEFT 


204 


35 

IF 

(K1.LT.L1) GO TO 65 


205 



LL 

= LI 


206 



DO 

60 J=LL,K1 
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1 

207 




C = ZERO 

1 

208 




DO 40 I=L1,K1 


209 




IF (I.EQ.J) GO TO 40 

2 

210 




C = C+DABS ( A ( I , J ) ) 

2 

21 1 


40 


CONTINUE 

i 

212 




IF (C. NE. ZERO) GO TO 60 

i 

213 




DILI ) = J 

i 

214 




IF (J.EQ.Ll) GO TO 55 

i 

215 




DO 45 1=1, K1 

2 

216 




F = A ( I . J ) 

2 

217 




A < I , J ) = A < T 5 L 1 ) 

2 

218 




A(I, LI) = F 

2 

219 


45 


CONTINUE 

1 

220 




DO 50 I =L. 1 , N 

2 

221 




F = A ( J , I ) 

2 

222 




A (J, 1 ) = A (LI , I) 

2 

223 




A (LI , I ) = F 

2 

224 


50 


CONTINUE 

1 

225 


55 


LI = Ll + 1. 

1 

226 




GO TO 35 

1 

227 


60 

CONTINUE 


228 

C 






c 





230 


65 

K = 

= LI 


231 



L : 

= K 1 


7 “T 9 



IF 

(Kl.LT.Ll) GO TO 75 


977 



DO 

70 I =L 1 , K 1 

1 

234 




D < I > = ONE 

1 

235 


70 

CONT I NUE 


236 


75 

NOCONV = 0 


237 



IF 

(Kl.LT.Ll) GO TO 120 


238 



DO 

115 I =L 1 , K 1 

1 

239 




C = ZERO 

1 

240 




R = ZERO 

1 

241 




DO 80 J=L 1 , K1 

2 

242 




IF (J.ED. I ) SO TO 80 

'-■> 

243 




C = C+DABS (A (J , I) ) 

2 

244 




R = R+DABS (A ( I , J) ) 

2 

245 


80 


CONTINUE 

i 

246 




G = R/B 

i 

247 




F = ONE 

i 

24S 




S = C+R 

i 

249 


85 


IF (C.GE.G) GO TO 90 

i 

250 




F = F * B 

i 

251 




C = C*B2 

i 

252 




GO TO 85 

i 



90 


G = R*B 

i 

254 


95 


IF (C.LT.G) GO TO 100 

i 

255 




F = F/B 

i 

256 




C = C/B2 

i 

257 




GO TO 95 

i 

258 

c 




i 

259 


1 00 


IF ( (C+R)/F.GE.P95*S) GO 

i 

260 




G = ONE/F 

i 

261 




D ( I ) = D(I)*F 

i 

■ 262 




NOCONV = 1 

i 

263 




DO 105 J=L1 , N 

2 

264 




A ( I , J ) = A ( I , J ) *G 

2 

265 


105 


CONTINUE 
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LI THROUGH K1 


NOW BALANCE 
TO 115 
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DO 110 J = 1 , K 1 

A ( J , I) = A ( J , I ) *F 
110 CONTINUE 
115 CONTINUE 

120 IF (NOCONV. EG. 1 ) GO TO 75 
END 


Name 

Type 

O-ff set 

A 

REALMS 

0 

B 

REAL*8 

102 

B2 

REAL*e 

110 

C 

REAL*8 

204 

D 

REAL*8 

8 

DABS 



F 

REAL*8 

182 

G 

REAL*8 

250 

I 

INTEGER*? 

168 

J 

INTEGER*? 

158 

JJ 

INTEGER*? 

150 

K 

INTEGER*? 

12 

K1 

INTEGER*? 

14-4 

K 1 1 

INTEGER*? 

148 

K1P1 

INTEGER*? 

1 4fc 

L 

INTEGER*? 

16 

LI 

INTEGER*? 

142 

LL 

INTEGER*? 

196 

N 

INTEGER*? 

4 

NOCONV 

INTEGER*? 

236 

ONE 

REAL*8 

126 

P95 

REAL*8 

134 

R 

REAL.*8 

160 

S 

REAL* 8 

258 

ZERO 

REAL*8 

118 

“27 

2 C 


27 

3 C 



INTRINSIC 


SUBROUTINE EBBCKF <D,Z,K,L,N> 

SPECIFICATIONS FOR ARGUMENTS 

INTEGER K , L , N 

REALMS D < 1 > 

REAL*8 Z (N, 1 > 

SPECIFICATIONS FOR LOCAL VARIABLES 
INTEGER I , 0, KM1 , 1 1 , J J , LP1 

REAL*8 S 

COLUMN SCALE Z BY APPROPRIATE D VALUE 
FIRST EXECUTABLE STATEMENT 

IF(L.EQ.O) GO TO 6 
DO 5 I=K, L 
S=D ( I ) 

DO 5 J=1,N 

Z(I, j)=Z(I,J)*S 
CONTINUE 


INTERCHANGE ROWS IF PERMUTATIONS 
OCCURRED IN EBALAF 


IF <K .EQ. 1) GO TO 20 
KM1=K-1 


RI/RD84-191 
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CD U1 


ro r- j ro ro 


D Line# 1 
295 
1 296 

1 297 

1 293 

1 299 

300 

301 

302 

303 
1 304 

305 

306 

307 
1 308 

1 -309 

1 3 1 0 

2 3 1 1 

2 312 

2 313 

2 314 

1 315 

316 

317 


DO 15 1=1. KM1 
1 I =K— I 
J J=D (II) 

IF (II .EC!. JJ) GO TO 15 
DO 10 J=1,N 
S=Z ( 1 1 , J > 

Z (II, J)=Z <JJ. J> 

Z (JJ, J) =s 
10 CONTINUE 
15 CONTINUE 

20 IF (L .EG. N) GO TO 35 


LP1=L+1 

DO 30 1 1 =LP 1 , N 
J J =D (II) 

IF (II .EG. JJ) GO TO 30- 
DO 25 J=1 , N 
S=Z ( I I , J) 

Z (I I, J)=Z (JJ, J) 

Z (JJ, J)=S 
25 CONTINUE 
30 CONTINUE 
35 RETURN 
END 
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Name 

Type 

D 

REAL*8 

I 

INTEGER* 2 

I I 

I NTEGER*2 

J 

INTEGER*2 

JJ 

I NTEGER*2 

K 

I NTEGEF;*2 

km : 

INTEGER* 2 

L. 

INTEGER* 2 

LP1 

I NTEGER*2 

N 

INTEGER*2 

S 

REALMS 

z 

REAL* 8 


Offset P Class 

0 * 

278 
310 
294 
312 
8 * 

' 302 
. 12 * 

320 
16 * 

286 
4 * 


1 

1 


318 C 

319 C- 

320 C 

32 1 

324 

325 

326 C 

327 

328 

329 

330 C 

331 


334 


SUBROUTINE EHBCKF 


INTEGER 

REAL*B 

REAL*8 

INTEGER 

REAL*B 

DATA 


(Z,H,D,N,K,L> 

SPECIFICATIONS FOR ARGUMENTS 

N,K,L 

H (N, 1) , D ( 1 ) 

Z (N, 1 ) 

SPECIFICATIONS FOR LOCAL VARIABLES 
LM2, KI , LTEMP, M, MA, MF'2, I, J 
T, TINV, ZERO, ONE, G 
ZERO, ONE/O. O, 1.0/ 

FIRST EXECUTABLE STATEMENT 


LM2=L.-2 

IF (LM2.LT. K) GO TO 9005 
LTEMF-LM2+K 


DO 


30 K I =K, LM2 

M=LTEhP-KI 

MA=M+1 
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■ ! 


D Line# 
1 337 

1 33B 

1 339 

1 340 

1 341 

1 342 

2 343 

2 344 

1 345 

1 346 

1 347 

2 348 

2 349 

3 350 

3 351 




358 

359 


1 7 

T=H(MA,M> 

IF (T. EQ. ZERO) GO TO 30 
T=T*D(MA> 

MP2=M+2 

IF <MP2. GT. L> GO TO 10 
DO 5 I =MP2 , L 
D ( I ) =H ( I , M) 

5 CONTINUE 

10 IF(MA.GT.L) GO TO 30 

T I NO = ONE / T 
DO 25 J=1,N 
G=ZERO 
DO 15 I=MA,L 

G=G+D < I ) *Z ( I , J ) 

15 CONTINUE 

G = G*TINV 
DO 20 I=MA,L 

Z(I, J)=Z(I, J)+G*D(I) 
20 CONTINUE 

25 CONTINUE 

30 CONTINUE 
9005 RETURN 
END 
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Name 

Type 

D 

REAL*8 

G 

REALMS 

H 

REAL*8 

I 

INTEGER*2 

J 

INTEGER*2 

k 

INTEGER*2 

ki 

INTEGER*2 

L 

INTEGER*2 

LM2 

INTEGERS 

LT EMP 

INTEGER*2 

M 

INTEGER*2 

MA 

INTEGER*2 

MP2 

INTEGER*2 

N 

'INTEGER*!’ 

ONE 

REAL*B 

T 

REAL*B 

TINV 

REAL*3 

7 

REAL*8 

ZERO 

REAL*8 


Offset P Class 

8 * 

400 
4 * 

376 
392 
16 * 

354 
20 * 

350 
352 
362 
364 
374 
12 * 

342 
366 
384 
0 * 

334 


36U 

C— - 


— 


L 

361 

C 





362 


SUBROUTINE EHESSF 

<A,K,L,N,D> 



3 (S3 

C 


SPECIFICATIONS 

FOR 

ARGUMENTS 

364 


INTEGER 

K , L , N 



365 


REAL*8 

A (N, N) , D (N) 



366 

C 


SPECIFICATIONS 

FOR 

LOCAL VARIABLES 

367 


INTEGER 

LA, KP1 , M, I,MP, II, J, JJ 



368 


REAL*8 

F,G,H, SCALE, ZERO 



369 


DATA 

ZERO/O.O/ 



370 

c 


FIRST EXECUTABLE STATEMENT 

371 


LA = L - 1 
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372 



KP1 = K + 1 


373 



IF (LA .LT. KP1) GO TO 50 


374 



DO 45 M = KP 1 , LA 

1 

375 



H = ZERO 

1 

376 



D(M) = ZERO 

1 

377 



SCALE = ZERO 

1 

378 

C 


SCALE COLUMN 

1 

379 



DO 5 I = M, L 

2 

380 



SCALE = SCALE + DABS ( A < I , M-l > ) 

2 

381 


5 

CONTINUE 

1 

3S2 



IF (SCALE .EQ. ZERO > GO TO 45 

1 

383 



MP = M + L 

1 

384 

C 


DO 10 I=L,M,-1 

1 

385 



DO 10 II = M, L 


386 



I * MP - II 


387 



D ( I ) = A (I, M-l) / SCALE 

»“» 

383 



H = H + D(I) * D ( 1 ) 


389 


10 

CONTINUE 

1 

390 



G = -DSIGN (DSGRT (H) , D (M) > 

1 

391 



H = H - D (M) * G 

1 

392 



D(M) = D(M) - G 

1 

393 

c 


FDRM (I-(U*UT)/H) * A 

1 

394 



DO 25 J = M,N 

Ti 

395 



F = ZERO 

■£. 

396 

c 


DO 15 I=L, M, - 1 

2 

397 



DO 15 II = M, L 

3 

398 



I = MF - II 

3 

399 



F = F + D(I> * A ( I , J ) 

3 

400 


15 

CONTINUE 

7? 

40 1 



F = F / H 

2 

402 



DO 20 I = M, L 

3 

403 



A ( I , J > = A ( I , J > - F * D ( I ) 

3 

404 


20 

CONTINUE 

7> 

405 


25 

CONTINUE 

1 

406 

c 


FDRM ( I — ( U*UT ) /H ) *A* ( I — 

1 

407 



DO 40 I = 1,L 

■ 7 . 

408 



F = ZERO 

2 

409 

c 


DO 30 J=L, M, -1 

2 

410 



DO 30 JJ = M, L 

-? 

411 



J * MP - JJ 

7-, 

412 



F = F + D ( J ) * A(I,J> 

3 

413 


30 

CONTINUE 

2 

414 



F = F / H 

2 

415 



DO 35 J = M, L 

7, 

416 



A ( I ,J > = A ( I , J ) - F * D ( J ) 

3 

417 


Owl 

CONTINUE 


418 


40 

CONTINUE 

1 

419 



D(M) = SCALE * D (M) 

1 

420 



A (M, M— 1 ) = SCALE # G 

1 

421 


45 

CONTINUE 




50 

RETURN 


Name Type 


Offset F Class 


A REAL*B 

D PEAL*8 

DABS 
DS 1 GN 


0 

16 


* 

* 


INTRINSIC 

INTRINSIC 


RI/RD84-191 

D-100 


in m 



7 


INTRINSIC 


D Line# 1 
DSQRT 


F 

REAL*8 

490 

G 

REAL*B 

474 

H 

REAL*Q 

440 

I 

INTEGER*2 

456 

II 

INTEGER*2 

466 

J 

INT£GER*2 

482 

JJ 

I NTEGER*2 

516 

K 

INTEGER+2 

4 

KP 1 

INTEGER*2 

430 

L 

INTEGER*2 

8 

LA 

INTEGER*2 

428 

M 

INTEGER*2 

432 

MP 

INTEGER*2 

464 

N 

INTEGER*2 

12 

SCALE 

REAL*8 

448 

ZERO 

REAL*8 

420 
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424 

C- 

— 




425 

C 





426 



SUBROUTINE EQRH3F 

<H,N,K,L,WR,WI,Z, IER) 


427 

C- 



SPECIFICATIONS FOR ARGUMENTS 


428 



INTEGER 

N.K.L, IER 


429 



REAL* 8 

H(N,N> , Z (N, N) 


430 



REAL*4 

WR(N) ,WI (N) 


431 

C 



SPECIFICATIONS FOR LOCAL VARIABLES 


432 



INTEGER 

I, IEN, ITS, IENM2, NPL, LL, LB. NAML, MM, M, MF2, KA, NA, 


433 



-* 

J, JJ 


434 



REAL*8 

RDELP,P4,P5,P7, ZERO. ONE, T,W,S,P, X, Y, ZZ,Q,R, 


435 



* 

RNORM , RA , S A , OR , V I 


436 



LOGICAL 

NOTLAS 


437 



DATA 

RDELP/7. 105427357601 001 859E- 15/ 


438 



DATA 

F'4/0. 4375/, P5/0. 5/ , F'7/0. 75/, ZERO/O. 0/ , ONE/1 . 0 


439 

C 



FIRST EXECUTABLE STATEMENT 


440 



IER = 0 



441 

C 



STORE ROOTS ISOLATED BY EBALAF 


442 



DO 5 1=1, N 


1 

443 



IF (I.GE.K.AND 

. I.LE.L) GO TO 5 

1 

444 



WR ( I ) = H ( I , I ) 


1 

445 



MI < I ) = ZERO 


1 

446 


5 

CONTINUE 



447 



IEN = L 



44B 



T = ZERO 



449 

C 



SEARCH FOR NEXT EIGENVALUES 


450 


10 

IF (IEN.LT.K) GO 

TO 140 


451 



ITS = 0 



452 



NA = IEN-1 



453 



IENM2 = NA- 1 



454 

C 



LOOK FOR SINGLE SMALL SUB-DI AGONA’ 


455 

456^, 

c 

15 

NPL = IEN+K 

ELEMENT 


457 



DO 20 LL=K, IEN 


1 

458 



LB = NPL-LL 


1 

459 



IF <LB.EQ.K1 GO TO 25 

1 

460 



IF (DABS <H <LB, 

LB-1 > ) . LE.RDELP* (DABS (H (LB-1, LB-1) ) 

1 

461 



1 +DABS (H (LB, 

LB) ) ) > GO TO 25 

1 

462 


20 

CONTINUE 



463 

c 
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464 


25 

X = H(I£N, IEN) 


465 



IF (LB. EG!. IEN) GO TO 105 


466 



Y = H(NA.NA) 


467 



W = H ( IEN, NA) *H (NA, IEN) 


468 



IF (LB.EQ.NA) GO TO 110 ' 


469 



IF (ITS. EQ. 30) GO TO 255 


470 

C 


FORM SHIFT 


471 



IF (ITS. NE. 10. AND. ITS. NE. 20) GO TO 35 


476 



T = T + X 


473 



DO 30 I=K, IEN r 

1 

474 



H(I, I) = H ( I , I)-X 

1 

475 


30 

CONTINUE 


476 



S = DABS <H( IEN, NA) )+DAB5(H(NA, IENM2) > 


477 



X = P7*S 


478 



Y = X 


479 



W = — R4*s*S 


480 


35 

ITS = ITS+1 


481 

c 


LOOK FOR TWO CONSECUTIVE SMALL 


482 

c 


SUB-DIAGONAL ELEMENTS 


483 



NAML. = 1ENM2+LB 


484 



DO 40 MM=LB, IENM2 

1 

485 



M = NAML-MM 

1 

486 



ZZ = H(M,M> 

1 

487 



R = X-ZZ 

1 

488 



S = Y-ZZ 

1 

489 



p = (R*S-W> /H (M+l , M) +H (M, M+l > 

1 

490 



Q = H (M+ 1 , M+l ) -ZZ-R-S 

1 

491 



R = H (M+2. M+l ) 

1 

492 



S = DABS (P) +DABS <Q) +DABS (R) 

1 

493 



P = F'/S 

1 

494 



q = g/3 

1 

495 



R = R/S 

1 

496 



IF (M. EQ. LB) GO TO 45 

1 

497 



IF ( DABS <H (M, M-l ) ) * ( DABS (Q) +DABS ( R) ) . LE. RDELP*DABS <P) * 

1 

498 



1 (DABS (H ( M— 1 , M- 1 ) ) +DABS ( ZZ ) +DABS ( H (M+ 1 , M+l ) > ) ) GO TO ■ 

1 

499 


40 

CONTINUE 


500 


45 

MP2 = M+2 


501 



DO 50 I=MP2, IEN 

1 

502 



H < 1 , 1—2) = ZERO 

1 

503 



IF (I.EQ.MP2) GO TO 50 

1 

504 



H (1,1-3) = ZERO 

1 

505 


50 

CONTINUE 


506 

c 


DOUBLE OR STEP INVOLVING ROWS 


507 

c 


L TO EN AND COLUMNS M TO EN 


508 



DO 100 KA=M,NA 

1 

509 



NOTLAS = KA.NE.NA 

1 

5 1 0 



IF (KA. EQ. M) GO TO 55 

1 

51 1 



P = H (KA, KA— 1 ) 

1 

512 



Q = H (KA+1 , KA-1 ) 

1 

513 



R = ZERO 

1 

514 



IF (NOTLAS) R = H(KA+2,KA-1> 

1 

515 



X = DABS (P) +DABS (Q) +DABS (R> 

1 

516 



IF < X . EQ. ZERO ) GO TO 100 

1 

517 



P = P/X 

1 

518 



Q = Q/X 

1 

519 



R = R/X 

1 

520 


55 

CONTINUE 

1 

521 



S = DSIGN (DSQRT <P*P+Q*Q+R*R> ,p) 

1 

522 



IF (KA. EQ. M) GO TO 60 
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1 

523 




H (KA, KA-1 ) = -S*X 

1 

524 




GO TO 65 

1 

525 


60 


IF (LB.NE.M) H ( KA , KA- 1 ) = -H (KA, KA- 1 ) 

1 

526 


65 


F = F+S 

1 

527 




X = P/S 

1 

528 




Y = Q/S 

1 

529 




ZZ = R/S 

1 

530 




Q = Q/P 

1 

531 




R = R/F 

1 

532 

C 



ROW MODIFICATION 

1 

CT 3* “T 




DO 75 J=KA,N 


534 




P = H (KA, J ) +Q*H (KA+ 1 , J ) 

2 

535 




IF (.NOT'. NOTLAS) GO TO 70 

2 

536. 




P = P+R*H (KA+2, J ) 

2 

537 




H (KA+2, J ) = H (KA+2, 0 ) -P*ZZ 

x 

538 


70 


H ( KA+ 1 , J ) = H (KA+ 1 , J > -P*Y 


539 




H (KA, J) = H (KA, J ) -P*X 

2 

540 


75 


CONTINUE 

1 

541 




J = MINO ( IEN, KA+3) 

i 

542 

C 



COLUMN MODIFICATION 

l 

543 




DO 85 1=1 , J 

2 

544 




P = X*H ( I , KA) +Y*H ( I , KA+1 ) 


545 




IF (.NOT. NOTLAS) GO TO 80 

2 

546 




P = P+ZZ*H ( I , KA+2) 


547 




H < I , KA+2) = H ( I , KA+2) -P*R 

2 

54S 


80 


H ( I , KA+ 1 ) = H ( I , KA+1 ) -P*Q 

2 

549 




H(I,KA) = H ( I , KA) -P 

2 

550 


85 


CONTINUE 

1 

551 

c 



ACCUMULATE TRANSFORMATIONS 

1 

552 




DO 95 I=K.L 

o 

553 




P = X*Z ( I , KA) +Y*Z ( I , KA+1 ) 

**> 

554 




IF (.NOT. NOTLAS) GO TO 90 

2 

555 




P = F'+ZZ*Z ( I , KA+2) 

2 

556 




Z ( I , KA+2) = Z ( I , KA+2) -P*R 


557 


90 


Z ( I , KA+1 ) = Z (I, KA+1 )-P*Q 

2 

558 




Z ( I , KA ) = Z ( I , KA ) -P 

2 

559 


95 


CONTINUE 

1 

560 


100 

CONTINUE 


561 



GO 

TO 15 


562 

c 



ONE ROOT FOUND 


563 


105 

H ( IEN, IEN) = X+T 


564 



WR(IEN) = H ( IEN, IEN) 


565 



Wit IEN) = ZERO 


566 



IEN = NA 


567 



GO 

TO 10 


568 

c 



TWO ROOTS FOUND 


569 


110 

P = 

= ( Y-X ) *P5 


570 



Q = 

= P*F+W 


571 



11 

= DSQRT (DABS (D) ) 


572 



H < IEN, IEN) = X+T 


573 



X = 

= H ( IEN, IEN) 


574 



H (NA, NA) = Y+T 


575 



IF 

(Q. LT. ZERO) GO TO 130 


576 

c 



REAL PAIR 


577 



11 

= F'+DS I GN ( Z Z , P ) 


578 



WR(NA) = X+ZZ 


579 



WR(IEN) = WR(NA) 


580 



IF 

(ZZ. NE. ZERO) WR(IEN) = X-W/ZZ 


581 



WI(NA) = ZERO 
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582 



WI ( IEN) = ZERO 


583 



X = H ( IEN, NA) 


584 



R = DSQRT <X*X+Z2*ZZ> 


585 



F = X/R 


586 



0 = ZZ/R 


5S7 

C 


ROW MODIFICATION 


588 



DO 115 J=NA,N 

1 

589 



ZZ = H(NA,J) 

1 

590 



H ( NA , J ) = G*ZZ+P*H( IEN, J) 

1 

591 



H ( IEN, J) = Q*H( IEN, J) -F'*ZZ 

1 

592 


115 

CONTINUE 


593 

C 


COLUMN MODIFICATION 


594 



DO 120 1=1, IEN 

1 

595 



ZZ = H(I,NA) 

1 

596 



H ( I , NA) = Q*ZZ+P*H< I , IEN) 

1 

597. 



HU, IEN) = Q*H(-I, IEN) -P*ZZ- - - 

1 

598 


120 

CONTINUE 


599 

C 


ACCUMULATE TRANSFORMATIONS 


600 



DU 125 I=K,L 

1 

60 1 



Z Z = Z ( I , NA ) 

1 

602 



Z(I.NA) = G*ZZ+P*Z ( I, IEN) 

1 

603 



Z ( I , IEN) = Q*Z ( I , IEN) -F'*ZZ . 

1 

604 


125 

CONTINUE 


605 



GO TO 135 


6 06 

C 


COMPLEX PAIR 


607 


130 

WR(NA) = X+P 


608 



WR(IEN) = X+P 


609 



WI (NA) = ZZ 


610 



WI (IEN) = -ZZ 


611 


135 

IEN = IENM2 


612 



GO TO 10 


6 1 3 

C 


ALL ROOTS FOUND, NOW 


614 

C 


BACK SUBSTITUTE 


615 


140 

RNORM = ZERO 


616 



KA = 1 


6.17 



DO 150 1=1, N 

1 

618 



DO 145 J=KA,N 

2 

619 



RNORM = RNORM+DABS (H ( I , J ) ) 

2 

620 


145 

CONTINUE 

1 

621 



KA = I 

1 

622 


150 

CONTINUE 


623 



IF (RNORM. EB. ZERO) GO TO 9000 


624 



DO 225 NN=1,N 

1 

625 



IEN = N+i-NN 

1. 

626 



P = WR(IEN) 

1 

627 



D = WI (IEN) 

1 

628 



NA = IEN-1 

1 

629 



IF (Q. GT. ZERO) GO TO 225 

1 

630 



IF (Q.LT.ZERO) GO TO 1B5 

1 

631 

C 


REAL VECTOR 

1 

63.2 



M = IEN 

1 

633 



H ( IEN, IEN) = ONE 

1 

634 



IF (NA. EB. 0) GO TO 225 

1 

635 



DO 180 11=1 , NA 

2 

636 



I = IEN-II 

2: 

637 



W = H ( I , I ) -P 

2 

638 



R = H<I, IEN) 

2 

639 



IF (M.GT.NA) GO TO 160 

o 

640 



DO 155 J=M, NA 
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Line# 

1 


3 

641 



3 

642 


155 

2 

643 


160 

rj 

644 



*|) 

645 



2 

646 



2 

647 


165 

2 

648 



2 

649 



2 

650 



2 

651 




652 




653 

C 



654 


170 

<7 

655 



2 

656 



2 

657 



2 

658 



<7 

659 



2 

660 




661 



rj 

662 


175 

2 

663 


180 

i 

664 

C 


i 

665 



i 

666 

C 


i 

667 

c 


i 

668 

c 


i 

669 


185 

i 

670 

C 


i 

671 



l 

672 



l 

673 



l 

674 



l 

675 


190 

l 

676 



l 

677 


195 

l 

678 



l 

679 



l 

680 



i 

681 



2 

682 



2 

683 




684 




685 



2 

686 



3 

687 



3 

688 



T 

689 


200 

2 

690 




691 



<iL 

692 




693 




694 




695 


205 

o 

696 




697 




698 




699 

c 
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R = R+H < I , J > *H < J , IEN) 

CONTINUE 

IF <WI <I) .GE. ZERO) GO TO 165 
ZZ = W 
S = R 
GO TO ISO 
M = I 

IF (WI (I ) .NE. ZERO) GO TO 170 
T = W 

IF (W. EQ. ZERO) T = RDELP+RNORM 
H < I , IEN) = -R/T 
GO TO 180 

SOLVE REAL EQUATIONS 

X = H ( I , I + 1 ) 

Y = H <1 + 1, I ) 

Q = ( WR ( I ) -p > * < WR ( I > -P ) +W Id) *W Id) 

T = <X*S-ZZ*R)/Q 
H ( I , IEN) = T 

IF (DABS <X> .LE. DABS (ZZ) ) GO TO 175 
H ( 1+1 , IEN ) = <-R~W*T)/X 
GO TO 180 

H ( 1 + 1 , IEN) = (— S-Y*T) /ZZ 
CONTINUE 

END REAL VECTOR 

GO TO 225 

LAST VECTOR COMPONENT CHOSEN 

IMAGINARY SO THAT EIGENVECTOR * 
MATRIX IS TRIANGULAR 

M = NA 

COMPLEX VECTOR 

IF (DABS (H< IEN, NA) > .LE. DABS (H(NA, IEN) ) ) GO TO 190 
H (NA, NA) = G/H < IEN, NA) 

H (NA, IEN) = - <H ( IEN, IEN) — P) /H ( IEN, NA) 

GO TO 195 
CONTINUE 

CALL CMPDIV(H(NA, NA ) , H (NA, IEN) ,ZERO, -H (NA, IEN) , H (NA, NA) -P, Q> 

H ( IEN, NA ) = ZERO 
H< IEN, IEN) = ONE 
IENM2 = NA-1 

IF (IENM2.EQ.0) GO TO 225 
DO 220 11=1, IENM2 
I = NA-II 
W = H (I , I ) -P 
RA = ZERO 
SA = H ( I , IEN) 

DO 200 J=M, NA 

RA = F<A+H<I, J)*H(J,NA) 

SA = SA+H <I,J)*H(J, IEN) 

CONTINUE 

IF (WI (I) .GE. ZERO) GO TO 205 
ZZ = W 
R = RA 
S = SA 
GO TO 220 
M = I 

IF (WI ( I > . NE. ZERO) GO TO 210 
CALL CMPDIV <H ( I , NA) , H(I, IEN) , -RA, -SA, W, Q) 

GO TO 220 

SOLVE COMPLEX EQUATIONS 
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n 

4 ~ 

700 


210 

X = H < I , 1 + 1 ) 

2 

701 



Y = H < 1 + 1 , I ) 

2 

702 



VR = <WR ( I ) — P) * <WR ( I ) -P> +WI ( I ) *WI ( I ) — Q*Q 

2 

703 



VI = <WR < I ) -P) *Q 

2 

704 



VI = VI+VI 

r> 

4 - 

705 



IF (VR.EQ. ZERO. AND. VI .EQ. ZERO) VR = RDELP*RNORM 

2 

706 


1 

* ( DABS <W> +DABS (0) +DABS ( X > +DABS ( Y ) +DABS ( Z Z > ) 

o 

707 



CALL CMPDIV(H<I,NA) ,H<I, IEN) , X*R-ZZ*RA+Q*SA, X*S-ZZ*SA-C!*RA, 

2 

708 


1 

VR , V I ) 

2 

709 



IF <DABS<X> .LE. DABS (ZZ >+DABS(Q> > GO TO 215 

2 

710 



H ( 1 + 1 , NA) = <-RA-W*H ( I , NA) +Q*H ( I , IEN) ) /X 


711 



H(I+1 5 IEN) = (-SA-W+H ( I , IEN ) -Q*H ( I , NA) ) /X 

n 

712 



GO TO 220 


713 


215 

CONTINUE 

2 

714 



CALL CMPDI V <H < I + 1 , NA) ,H <1 + 1, IEN) , -R-Y*H < I , NA ) , -S-Y*H ( I , IEN) 

2 

715 


1 

,ZZ,Q) 

2 

716 


220 

CONTINUE 

1 

717 

C 


END COMPLEX VECTOR 

1 

718 


225 CONTINUE 


719 

c 


END B ACKSUBST I TUT I ON 


720 

c 


VECTORS OF ISOLATED ROOTS 


721 


DO 

235 1=1, N 

1 

722 



IF (I.GE.K.AND. I.LE.L) GO TO 235 

1 

723 



DO 230 J = I , N 


724 



Z <1, J) = H ( I , J ) 

*7 

725 


230 

CONTINUE 

l 

726 


235 CONTINUE 


727 


IF 

(L.EG.O) GO TO 9000 


728 

c 


MULTIPLY BY TRANSFORMATION MATRIX^ 


729 


DO 

250 JJ=K,N 

l 

730 



J = N+K-JJ 

l 

731 



M = M I NO < J , L ) 

l 

732 



DO 245 I=K, L 


733 



ZZ = ZERO 


734 



DO 240 KA-K.M 

3 

735 



ZZ = ZZ+Z ( I , KA> *H (KA, J ) 

3 

736 


240 

CONTINUE 

2 

737 



Z < 1 , J) = ZZ 

2 

738 


245 

CONTINUE 

1 

739 


250 CONTINUE 


740 


GO 

TO 9000 


741 

c 


NO CONVERGENCE AFTER 30 ITERATION' 


742 

c 


SET ERROR INDICATOR TO THE INDEX' 


743 

c 


OF THE CURRENT EIGENVALUE 


744 


255 IER = 12B+IEN 


745 


DO 

260 1=1, IEN 

1 

746 



WR ( I ) = ZERO 

1 

747 



WI(I) = ZERO 

1 

748 


260 CONTINUE 


749 


DO 

270 1=1, N 

i 

750 



DO 265 J=1,N 

4L 

751 



Z(I,J> = ZERO 

2 

752 


265 

CONTINUE 

i 

753 


270 CONTINUE 


754 

9000 CONTINUE 


755 


END 

Name Type 

Offset P Class 
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D Line# 1 
DABS 
DSIGN 
DSQRT 
H 

I 

IEN 
IENM2 
IEF: 

I I 
ITS 
J 

JJ 
K 
KA 
L 

LB 
LL 
M 

MI NO 
MM 

MP2 

N 

NA 

NAML 
NN 


NOTLAS 

L0GICAL*2 

NPL 

INTEGER*2 

ONE 

REAL*8 

P 

REAL*8 

P4 

REAL*8 

P5 

REAL*3 

P7 

REAL.*8 

Q 

REAL*B 

R 

REAL*8 

RA 

REAL*8 

RDELP 

REAL *8 

RNORM 

REAL*8 

S 

REAL*B 

SA 

REAL *8 

T 

REAL*8 

VI 

REAL*8 

VR 

REAL*8 

W 

REAL*8 

WI 

REAL 

WR 

REAL 

X 

REAL*8 

Y 

REAL*8 

Z 

REAL*8 

ZERO 

REAL*8 

ZZ 

REAL*8 


INTRINSIC 

INTRINSIC 

INTRINSIC 

0 * 

578 
586 
600 
28 * 

780 
596 
714 
850 
8 * 

704 
12 * 

612 

604 

662 

INTRINSIC 

654 
696 
4 * 

598 
652 
772 
712 
602 
570 
680 
533 
546 
554 
688 
672 
800 
530 
752 
644 
808 
588 
830 
822 
630 
20 * 

16 * 

614 
622 
24 * 

562 

664 


REAL*B 
INT£G£R*2 
INT£GER*2 
INTEG£R*2 
INTEGER*2 
INTEGER*2 
INTEGER*2 
INTEG£R*2 
INTEGER*2 
1NTEGER*2 
INTEGER*2 
INTEGER*2 
INTEGER* 2 
INTEGER*2 
INTEGER*2 

INTEGER*2 
INTEGER*2 
I NTEGER*2 
INTEG£R*2 
INTEGER*2 
INTEGER*2 
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756 *CMPD 1 0**** ****************************** **************************** *** 

757 C 

758 C SUBROUTINE CMPDIV 

759 C 

760 C*********************************************************************** 

761 C 

762 C LATEST REVISION - MARCH 19, 1984 
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D Line# 

763 

764 

765 

766 

767 

768 

769 

770 

771 

772 

773 

774 

775 

776 

777 

778 

779 

780 

781 

782 

783 

784 
7B5 

786 

787 


1 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 
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PURPOSE - DIVISION OF TWO COMPLEX NUMBERS 

USAGE - CALL CMPDI V (RR, RI , NR, NI , DR, DI ) 

ARGUMENTS RR, RI - REAL AND IMAGINARY PARTS OF RESULT 

NR, NI - REAL AND IMAGINARY PARTS OF NUMERATOR 
DR, DI - REAL AND IMAGINARY PARTS OF DENOMINATOR 


REMARKS 


RR AND RI WILL BE UNCHANGED IF THE MAGNITUDE OF THE 
DENOMINATOR IS ZERO (I.E., IF DR*DR + DI*DI = 0.0) 


C**** ******************** **************************************** ******* 
C 

SUBROUTINE CMPDI V (RR, RI , NR, NI , DR, DI ) 

C ' 

REAL*8 RR, RI , NR, NI , DR, DI , D 
C 

D = DR* DR + DI*DI 
IF (D . EB. 0. DO) RETURN 
C 

RR = <NR*DR + N I *D I ) / D 
RI = <NI*DR - NR*D I ) / D 
C 

END 


Name 

Type 

D 

REAL*8 

DI 

REAL*8 

DR 

REAL*B 

NI 

REAL*8 

NR 

REAL*8 

F:I 

REAL*8 

RR 

REAL*8 


Offset P Class 

888 
20 * 

16 * 

12 * 

8 * 

4 * 

0 * 


Name Type ' Size Class 


CMPDI V 

EBALAF 

EBBCKF 

EHBCKF 

EHESSF 

EIGRF 

EQRH3F 


SUBROUTINE 

SUBROUTINE 

SUBROUTINE 

SUBROUTINE 

SUBROUTINE 

SUBROUTINE 

SUBROUTINE 


Pass One No Errors Detected 
787 Source Lines 
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12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 , 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 
4? 

50 

51 
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*RSTABNP***** *********************************************************** 
C 

C FROG RAM R S T A B N P 

C 

C ROTOR DYNAMICS ANALYSIS PROGRAM <N0 PLOTTING) 

C 

C* ********************************************************* ******* ****** 

c 

SUBROUTINES UTILIZED IN RSTAB ARE CALLED 
IN THE FOLLOWING ORDER: 


F0RT03 SOLVE FOR EIGENVALUES VS. RPM 

MATX 

EIGRF' 

ANSR 


C 
C 
C 
C 
r 
C 

c 
c 

C 

c********************************* *********************** ************** 

C 

^STORAGE: 2 
C 

PROGRAM RSTAB 
C 

C 

C 

C 


CHARACTER TI TL (72, 2) *1 , TAF'E4*14 

INTEGER NZ <4> , NSA (4) 

REAL RZ (6) , RZ1 (6) 

EQUIVALENCE <G, Z) , (TITL, TAPE4) 

C 

C* ARRAY DIMENSIONS MOST LIKELY TO CHANGE **************************** 
C 

C NOTES: DIMENSION WK TO (MAXO (LRDOF, LCDOF, 2*LDYN> ) 

FUNC TO (NFGEN + 1) 

Z TO (2, LDYN, LDYN) 

W TO (2, LDYN) 


DIMENSION AC (50, 14) , AR ( 1 15, 16) , WC ( 14) , WR < 16) ,ZETAC(14) , X (10) , 
* SPEED (20, 24) ,DMF'(100,4) ,S( 100,4) ,FG(20,24) , 

► G( 115, 1 15) , FUNC (25) , ZRF’M (25) , W<2, 60) 

INTEGER JFUN ( 160, 2) ,NPT(24> , NRC ( 100, 2, 4) , IR0T(20) , ICASE(20) 

REAL*8 GEAR (16, 16) , A (60, 60) , WK (120) , Z (2,60,60) 


C***** ************************************* **************************** 

C 

COMMON / DATA /NGYRO , NCMOD , NRMOD , NCDOF , NRDOF , T I TL , KRPM , NFGEN , 

+ NSA, NSL, I PRT , KCRT , NX TC , RPM 1 , DRF'M , N I , FH I GH , FLOW , 

+ IPLTF, IPRT2, IPRT3 

COMMON /MEM/Z 

COMMON /MOD/AR, AC 


54 C 

55 

56 C 

57 

58 

59 


DATA FUNC ( 1 ) / 1 . 0/ 


C* DATA STATEMENTS NEEDED FOR ARRAY REDIMENSIONING ******************** 

C 

DATA LCMOD, LRMOD/ 14, 16/, LSA,LSJ /100,160/ 
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60 DATA LPT /20/, LRDOF, LCDOF/1 15, 50/ 

61 C 

62 C********************************************************************** 

63 C 

64 LDYN=2* (LRMOD+LCMOD) 

65 LG'MAXO (LRDOF, LCDOF) 

66 C 

67 C OPEN OUTPUT FILE 

68 C NOTES: FILE FIN. BAT IS EMPTY IF OUTPUT IS BEING LISTED ON PRN, 

69 C ELSE ’ LIST2’ IS READ INTO TAPE 4. 

70 C CHANNEL 4 IS USED FOR PRINTING THE ROOT-LOCUS PLOT. 

71 C 

72 OPEN ( 2 , F I LE= ’FIN. BAT ’ , ST ATUS= ’ OLD ’ ) 

73 TAPE4=’ PRN’ 

74 READ (2. 9000, £NB=5) T APE 4 

75 5 CLOSE (2) 

76 OPEN (6, FILE=TAP£4, ST ATUS=’ NEW’ ) 

77 C 

78 C OPEN RUN DATA, EIGENVALUE, AND MODE SHAPE DATA FILES 

79 C 

80 OPEN ( 1 , F I LE= ’ RUNDATA .BIN’, STATUS' ’ OLD ’ , FORM' ’ UNFORMATTED ’ ) 

81 OPEN (2, FILE=’ El GENS. BIN’ , STATUS' ’ NEW’ , FORM'’ UNFORMATTED’ ) 

82 0PEN(3,FILE=’SHAPES. BIN’ , STATUS'’ NEW’ , FORM'’ UNFORMATTED’ > 

83 C 

84 C READ PROBLEM DATA 

85 C 

86 1 0 READ ( 1 ) (TITL (I, 1>,I=1, 72), NCDOF , NCMOD, NRDOF, NRMOD, I PCNT 

87 C 

88 READ ( 1 ) ( <AC(I, J) , 1 = 1, NCDOF) , J'l, NCMOD) , < <AR(I,J) , 1 = 1, NRDOF) , 

89 + J=1 , NRMOD) ,< (GBARCI, J) , 1=1 , NRMOD) , J'l, NRMOD) , (WC< I ) , 

90 -r 1 = 1, NCMOD), (WR(I), 1 = 1, NRMOD) 

91 C. 

92 C READ SUBCASE DATA 

93 C 

94 20 READ ( 1 ) (TITL (1,2) , 1=1,72), NSA, NSL, IF’RT , KCRT, NXTC, NFGEN, MAXFTS, 

95 + RF’Ml , DRPM, NI , NROT, NCASE, FHI GH, FLOW, RZ , IPLTF, IPRT2, RZ 1 , 

96 + NZ , IPRT3, KRF’M, NSTAT, IFLG, IFLG1 , THETA, SCALE, I SCNT 

97 C 

98 NSJ=4*NSL+NSA ( 1 ) +NSA (2) +NSA (3) +NSA (4) 

99 NNSA=4*NSL+MAX0(NSA( 1 ) , NSA ( 2) , NSA (3) , NSA (4) ) 

100 C 

101 READ ( 1 ) (ZETAC ( I ) , 1 = 1, NCMOD) , (NPT (J > , (FG (I , J) , SPEED ( I , J > , 

102 + 1 = 1, MAXFTS) , J'l, NFGEN) ,( (OFUN(I,J> , 1 = 1 ,NSJ) , J'l, 2) . 

103 + ( (S( I , J) , DMP (I, J) , (NRC( I,K, J) ,K=1,2) , 1=1 ,NNSA) , J'l , 4) , 

104 -t- (IROT(I) , 1=1 ,NROT> , (ICASE(I) , 1=1, NCASE) , (ZRPM(I) , 

105 + I=1,KRPM) , (X (I) , 1=1, NSTAT) 

106 C 

107 C SAVE CRITICAL SPEED AND STABILITY PLOT DATA 

1 08 C 

109 WRITE (2) IPLTF, IPRT2, TITL, RZ , RZ1 , RPM1 , DRPM, NI , FHIGH, FLOW, 

110 + NRMOD, NCMOD, NZ, KCRT, I PCNT, I SCNT, NXTC 

111 C 

112 C SAVE MODE SHAPE PLOTTING DATA 

113 C 

114 WRITE (3) IPRT, IPRT3, NCDOF , NCMOD, NRDOF, NRMOD, NCASE, NROT , T ITL , 

115 + NSTAT, IFLG, IFLG1, THETA, SCALE, IPCNT, ISCNT, NXTC 

1 16 C 

117 WRITE (3) ( (AC ( I , J ) , 1=1, NCDOF) , J'l. NCMOD) , ( (AR ( I , J ) , 1=1, NRDOF) , 

118 + J'l, NRMOD) , (ICASE(I) , 1=1, NCASE) , (IROT(I ), 1=1, NROT) , 
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Name 

Type 

Offset P 

Cl ass 


A 

REAL*8 

13370 



AC 

REAL 

7360 

/MOD 

/ 

AR 

REAL 

0 

/MOD 

/ 

DMP 

REAL 

9750 



DRPM 

REAL 

178 

/DATA 

/ 

F'G 

REAL 

11350 



FHIGH 

REAL 

184 

/DATA 

/ 

FLOW 

REAL 

188 

/DATA 

/ 

FUNC 

REAL 

13270 



G 

REAL 

0 

/MEM 

/ 

GBAF: 

REALMS 

7702 



I 

INTEGER*2 

42188 



I CASE 

INTEGER*2 

7662 



IFLG 

INTEGER*2 

42218 



IFL.G1 

INTEGER*2 

42220 



IPCNT 

INTEGER*2 

42192 



IF'LTF 

INTEGER*2 

192 

/DATA 

/ 

IF'RT 

INTEGER*2 

168 

/DATA 

/ 

IPRT2 

INTEGER*2 

194 

/DATA 

/ 

I RRT3 

INTEBER*2 

1 96 

/DATA 

/ 

I ROT 

INTEGER* 2 

7622 



ISCNT 

INTEGER*2 

42230 



J 

INTEGER* 2 

42194 



JFUN 

INTEGER*2 

5334 



K 

INTEGER*2 

42236 



KCRT 

INTEGER*2 

^ 170 

/DATA 

/ 

KRF'M 

INTEGER*2 

154 

/DATA 

/ 

LCDOF 

INTEGER*2 

42182 
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LCMOD 

INTEGER*2 

42170 



LDYN 

INT£GER*2 

42184 



LG 

INTEGER*2 

42186 



LPT 

INTEGER*2 

42178 



LRDOF 

INTEGER*2 

42180 



LRMOD 

INTEGER*2 

42172 



LSA 

INTEGER*2 

42174 



LSJ 

INTEGER*2 

42176 



MAXO 



INTRINSIC 

MAXPTS 

INTEGER*2 

42210 



NCASE 

INTEGER*2 

42214 



NCDOF 

INTEGER*2 

6 

/DATA 

/ 

NCMOD 

INTEGER*2 

jL. 

/DATA 

/ 

NFGEN 

INTEGER*2 

156 

/DATA 

/ 

NGYRO 

INTEGER*2 

0 

/DATA 

/ 

NI 

INTEGER*2 

182 

/DATA 

/ 

NNSA 

INTEGER* 2 

42234 



NPT 

INTEGER*2 

5974 



NRC 

INTEGER*2 

6022 



NRDOF 

INTEGER*2 

8 

/DATA 

/ 

NRMOD 

INTEGER*2 

4 

/DATA 

/ 

NRDT 

INTEGER*2 

43"^ 1 2 



NSA 

INTEGER*2 

158 

/DATA 

/ 

NS J 

INTEGER*2 

42232 



NSL 

INTEGER*2 

166 

/DATA 

/ 

NSTAT 

INTEGER*2 

42216 



NXTC 

I NTEGER*2 

172 

/DATA 

/ 

N2 

INTEGER*2 

1758 



RPM1 

REAL 

174 

/DATA 

/ 

RZ 

REAL 

1766 



RZ1 

REAL 

1790 



S 

REAL. 

3734 



SCALE 

REAL 

42226 



SPEED 

REAL 

1814 



TAPE 4 

CHAR* 14 

10 

/DATA 

/ 

THETA 

REAL 

42222 



TITL. 

CHAR* 1 

10 

/DATA 

/ 

W 

REAL 

1278 



WC 

REAL 

158 



WK 

REAL*B 

318 



WR 

REAL 

214 



X 

REAL 

278 



Z 

REAL*8 

0 

/MEM 

/ 

ZETAC 

REAL 

o 



ZRPM 

REAL 

58 




Name Type 

Size 

Cl ass 

DATA 

198 

COMMON 

FORT 03 


SUBROUTINE 

MEM 

57600 

COMMON 

MOD 

1 0 1 60 

COMMON 

RSTAEi 


PROGRAM 


Pass One No Errors Detected 
146 Source Lines 
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•F0RT03. FOR************************************************************ 


1 

1 

1 

1 

1 

1 

1 

2 


1 

1 

1 


2 C 

3 C SUBROUTINE F0RT03 

4 C 

5 C** ************************************************************** ****** 

6 C 

7 C SUBROUTINES UTILIZED IN F0RT03 ARE CALLED 

8 C IN THE FOLLOWING ORDER: 


9 C 

10 C MATX FORMS THE MATRIX ADDITIONS INTO THE 

11 C NORMALIZED DYNAMICAL MATRIX "A" 

12 C 

13 C EIGRF . . FROM THE IMSL LIBRARY. SOLVES A GENERAL 

14 C MATRIX FOR COMPLEX ROOTS AND EIGENVECTORS 

15 C 

16 C ANSR SAVES ITERATION STEP RESULTS AND PLOTS 

17 C EIGENVALUES ON CRT (ROOT LOCUS) 

18 C 


19 C******************** ******************************** ****************** 


20 C 


21 

rjr) 

23 

24 

25 

26 

27 

28 

29 

30 

31 



34 

35 

36 

37 

38 

39 

40 

41 

42 

43 


♦STORAGE: 2 
C 


c 

c 

c 

c 

c 


SUBROUT I NE F0RT03 < A , AC , AR, DMP , FG , GEAR , JFUN , NF'T , NRC , W , S , SPEED , WC . 
+ WR, ZETAC, FUNC, LCDOF, LRDOF, LRMOD, LDYN, LSA, L3J , 

+ LPT, LG, ICASE. IROT, WK,G, Z,ZRPM) 


CHARACTER 

REAL*S 

INTEGER 


TITL (72, 2) *1 

A (LDYN, 1) , WK<1 > , GBAR (LRMOD, 1 ) , Z (2, LDYN, 1 ) 

JFUN (LSJ, 1 ) , NPT ( 1 ) , NRC (LSA, 2, 1 > , ICASE ( 1 > , IROT ( 1 ) , NZ (4) , 
NSA (4) 


DIMENSION 

+ 

+ 


AC (LCDOF, 1 ) , AR (LRDOF, 1 ) , WC ( 1 ) , WR ( 1 ) ,S(LSA, 1 ) , G ( LG, 1 ) , 
DMP (LSA, 1 > , FG (LPT, 1) , SPEED (LPT, 1 ), ZETAC ( 1 > , FUNC ( 1) , 
ZRF'M ( 1 ) , W (2, 1 > 


COMMON 

+ 

+ 

C 

C M A I N 

C 


/DATA /NGYRO , NCMOD , NRMOD , NCDOF , NRDOF , T I TL , KRF’M , NFGEN, 
NS A , NSL , IF'RT, KCRT, NXTC, RF'Ml , DRPM , N I , FH I GH , FLOW , 
IF'LTF, IPRT2, IPRT3 

ROUTINE 


44 NMODES=NRMOD+NCMOD 

45 DO 200 IRPM = 1,NI+1 

46 RF’M = RPM1 + (IRPM - 1) * DRPM 

47 WRITE (6, 36) TITL, RPM 

48 WRITE (*,36) TITL, RPM 

49 C 

50 C UPDATE FUNCTION GENERATORS 

51 C 

52 DO 100 1=1, NFGEN 

53 DO 10 J = 1 , NF'T ( I ) - 1 

54 10 IF (RPM.LT. SPEED (J, I) > GOTO 100 

55 100 FUNC ( I ) =FG ( J- 1 , I ) + (FG ( J, I ) -FG ( J-l , I ) ) * (RPM-SF'EED ( J-l , I) ) / 

56 * (SPEED ( J , I ) -SPEED ( J-l , I ) ) 

57 C 

58 C ZERO THE DYNAMICAL MATRIX 

59 C 
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D 

Li ne# 

1 

60 

2 

61 


62 

1 

63 

1 

64 

1 

65 

1 

66 

2 

67 

1 

68 

1 

69 

1 

70 

i 

71 

1 

72 

1 

73 

1 

74 

1 

75 

1 

76 

2 

77 

2 

78 

3 

79 

1 

80 

1 

81 

2 

82 

2 

83 

2 

84 

1 

85 

1 

86 

1 

87 

1 

88 

I 

89 

1 

90 

1 

91 

1 

92 

1 

93 

1 

94 


95 


96 


97 


98 


99 


1 00 


101 


102 


103 


104 


105 


1 


C 

C 

C 


c 

c- 

c 


c 

c- 

c 


c 


c 

c 

c 

c 

c 

c 


C; 


c 

c- 

c 


c 

c- 

c 

c 


400 


DO 400 1=1, 2*NM0DES 
DO 400 J=1,2*NM0DES 
A d , J ) =0. 0 
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SET THE IDENTITY MASS PARTITION OF A 

DO 300 I '= 1 , NMODES 
300 A(I +NMODES , I ) = 1.0 

LOAD NSL'S AND NSA’S INTO A 

CALL MAT X < AC , AR , DMP , J FUN , LCDOF , LRDOF , LS A , LS J , LD YN , NRC , S , 

+ A, G, LG, WK,FUNC) 

ADD SPECTRAL MATRIX, DAMPING MATRIX, AND GYROSCOPICS TO A 

DO 410 1 = 1, NRMOD 

A(I, NMODES+ I ) = A < I , NMODES+ I ) - WR d > *WR d > 

DO 410 J = 1, NRMOD 

410 A(I,J) = A(I,J) — GBARd, J>*RPM*0. 1047197 

DO 430 1=1, NCMOD 

IR = NRMOD + I 

A ( I R , I R ) = A(IR.IR) - 2 . *ZET AC < I ) *WC < I ) 

430 A ( I R , NMODES+ I R ) = A ( IR, NMODES+IR) - WC ( I > *WC ( I ) 

CALCULATE EIGENVALUES AND EIGENVECTORS 


CALL El GRF <A, 2*NMQDES, LDYN, W, Z , LDYN, WK , IER). 

— store RESULTS 

CALL ANSR ( Z, LDYN, RPM, W, ZRF'M) 

200 CONTINUE 

WRITE END-OF-CASE RECORD ON EIGENVECTOR FILE 

WRITE (3) RPM, -9999, <W<0, 1) ,0 = 1,2) , 

+ ( (SNGL (Z ( J, L, 1> ) , J=l,2> , L=l, NMODES) 


FORMAT STATEMENTS 

36 FORMAT ( 1H 1 /5X , 72A//5X , 72A// /5X, ' ROTOR SPIN SPEED =’,F8.0,’ RPM' 
END 


) 


Name 

Type 

Offset 

P 

Class 


A 

REAL *8 

0 

* 



AC 

REAL 

4 

* 



AR 

REAL 

8 

* 



DMP 

REAL 

12 

* 



DRPM 

REAL 

178 


/DATA 

/ 

FG 

REAL 

16 

* 



FHIGH 

. REAL 

184 


/DATA 

/ 

FLOW 

REAL 

188 


/DATA 

/ 

FUNC 

REAL 

60 

* 



G 

REAL 

108 

# 
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GEAR 

REAL*8 

20 

* 



I 

INTEGER*2 

24 




ICASE 

INTEGER*2 

96 

* 



IER 

INTEGER*2 

78 




IF'LTF 

INTEGER*2 

192 


/DATA 

/ 

IF'RT 

INTEGER*2 

168 


/DATA 

/ 

IPRT2 

INTEGER*2 

194 


/DATA 

/ 

IPRT3 

I NTEGER*2 _ 

196 


/DATA 

/ 

IR 

INTEGER*2 

76 




IROT 

INTEGER*2 

100 

* 



I RPM 

INTEGER*2 

12 




J 

INTEGER*2 

32 




JFUN 

I NTEGER*2 

24 

* 



KCRT 

INTEGER*2 

170 


/DATA 

/ 

KRPM 

INTEGER+2 

154 


/DATA 

/ 

L 

INTEGER*2 

82 




LCDOF 

INTEGER*2 

64 

* 



LDYN 

INTEGER*2 

76 

* 



LG 

INTEGER*2 

92 

* 



LPT 

INTEGER*2 

B8 

* 



LRDOF 

INTEGER*2 

68 

* 



LRMOD 

INTEGER*2 

72 

* 



LSA 

INTEGER*2 

80 

* 



LSJ 

INTEGER*2 

84 

* 



NCDOF 

INTEGER*2 

6 


/DATA 

/ 

NCMOD 

INTEGER*2 

2 


/DATA 

/ 

NFGEN 

INTEGER*2 

156 


/DATA 

/ 

NGYRQ 

INTEGER*2 

0 


/DATA 

/ 

NI 

INTEGER*2 

182 


/DATA 

/ 

NMODES 

INTEGER*2 

10 




NPT 

INTEGER*2 

28 

* 



NRC 

INTEGER*2 

32 

* 



NRDOF 

INTEGER*2 

8 


/DATA 

/ 

NRMOD 

INTEGER*2 

4 


/DATA 

/ 

NSA 

INTEGER*2 

158 


/DATA 

/ 

NSL 

INTEGER*2 

166 


/DATA 

/ 

NXTC 

INTEGER*? 

172 


/DATA 

/ 

NZ 

INTEGER*2 

* 3 * 




RPM 

REAL 

20 




RF'Ml 

REAL 

174 


/DATA 

/ 

S 

REAL 

40 

* 



SNGL 




INTRINSIC 

SPEED 

REAL 

44 

* 



TITL 

CHARM 

10 


/DATA 

/ 

W 

REAL 

36 

* 



WC 

REAL 

48 

* 



WK 

REAL*B 

104 

# 



WR 

REAL 

52 

* 



Z 

REAL*8 

1 12 

* 



ZETAC 

REAL 

56 

* 



Z RPM 

REAL 

1 16 

* 
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106 

107 

10B 

109 

no 

1 1 i 


*MATX . FOR*********************************************************** **** 


C 

C 

C 

C 

C 


MATX COORDINATES THE INTRAGROUP, INTERGROUP, MATRIX 

ADDITIONS AND THE CALCULATION OF THEIR STIFFNESS 
AND DAMPING VALUES (MULTIPLIED BY THE RESPECTIVE 
FUNCTION GENERATOR). 
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1 

O 


1 

1 

1 

1 

1 

1 

1 


1 

1 

1 

1 


1 

1 

1 

1 

i 


113 

114 

1 15 

116 

117 

118 

119 

120 
121 

1 23 

124 

1 25 

126 

127 

128 

129 

130 

131 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

1 53 

154 

155 

156 

157 

158 

159 

160 
161 
1 62 

163 

164 

165 

166 

167 

168 

169 

170 


C** •****•*■* **** ******* **** ******* *«■■*•* **•»■*****■**■#** ******** **************** 

C 

SUBRQUT I NE MAT X ( AC , AR , DMP , JFUN, LCDQF , LRDQF , LSA, LS J , LDYN , NRC , S , 

+ A, G, LG, WK, FUNC) 


C 

C 

C 

C 

C 


INTEGER 

DIMENSION 


JFUN (LSJ, 1 > , NRC <LSA, 2, 1 > ,NSA<4) 

AR (LRDOF, 1 ) , AC (LCDOF, 1 > , DMP (LSA, 1 ) , S(LSA, 1 ) . 
6 (LG, 1) , FUNC < 1 ) 


REAL*S 


A ( LDYN , 1) , WK < 1 ) 


CHARACTER TITL(72,2)*1 


COMMON /DATA/NGYRO, NCMOD, NRMOD, NCDOF, NRDOF, TITL, KRPM, NFGEN, 

+ NSA, NSL, IF'RT, KCRT, NXTC, RPM1 , DRPM, NI , FHIGH, FLOW, 

+ IPLTF, IPRT2, IPRT3 

C 

C ZERO THE G MATRIX 

C 

DO 100 . 1=1, LG 

DO 100 J = 1 , L.G 

100 G ( J , I ) = 0.0 


C 

c TRANSFORM MATRIX ADDITIONS INTO NORMAL COORDINATES, 

C AND ADD THEM TO THE SYSTEM DYNAMICAL MATRIX "A". 

C 

C 1) ROTOR-TO-ROTOR ADDITIONS 

C 2) ROTOR-TO-CASING ADDITIONS 

C 3) CAS I NG— TO— ROTOR ADDITIONS 

C 41 CASING-TO-CASING ADDITIONS 

C 


N = 4*NSL 

NMODES = NRMOD + NCMOD 

IK=0 


C 


c 

c 

c- 

c 


c 


c 


DO 1 000 I P = 1 , 4 

IF ( NSL+-NSA (IP) EQ. 0 ) GOTO 1000 

ADD STIFFNESS ADDITIONS 

IF (NSL. NE. 0) THEN 
DO 200 I = 1 , N 

200 G<NRC (I , 1 , IF) ,NRC< I, 2, IP) ) = S ( I , IP) *FUNC ( JFUN ( 1 , 1 > ) + 

1 G (NRC (1,1, IP), NRC (1,2, IP) ) 

END IF 

IF (NSA (IP) .NE.O) THEN 
DO 250 I = 1 , NSA (IP) 

NN=N+I 

250 G (NRC (NN, 1, IP) ,NRC(NN,2, IP) )=S(NN, IP) *FUNC (JFUN (NN+IK, 1) )+ 

1 G(NRC(NN, 1, IP) ,NRC(NN,2, IP) ) 

END IF 

IF (IP. EQ. 1 ) CALL TRANS (AR, LRDOF, NRDOF, NRMOD, G, LG, AR, LRDOF. 

1 NRDOF, NRMOD, A (1,NM0DES+1) , LDYN , WK) 

IF (IP. EQ. 2) CALL TRANS (AR, LRDOF, NRDOF, NRMOD, G, LG, AC , LCDOF, 
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1 

171 


1 

NCDOF , NCMOD , A ( 1 , NM0DES+NRM0D+ 1 ) , LD YN , WK ) 

1 

172 



IF (IP; EG). 3) CALL TRANS (AC, LCDOF, NCDOF, NCMOD, G, LG, AR, LRDOF , 

1 

173 


1 

NRDOF , NRMOD , A < NRMOD+ 1 . NMODES+ 1 > , LDYN , WK ) 

1 

174 



IF (IP. EQ. 4) CALL TRANS (AC, LCDOF, NCDOF, NCMOD, G, LG, AC, LCDOF, 

1 

175 


1 

NCDOF, NCMOD, A (NRMOD+1 , NMODES+NRMOD+ 1 ) , LDYN. 1 

1 

176 

C 



1 

177 

C- 


■RESET G 

1 

178 

c 



1 

179 



DO 300 1=1, NSA ( IP) +N 

2 

180 


300 

G(NRC(I, 1 , IP) ,NRC( 1,2, IP) ) =0.0 

i 

181 

c 



i 

182 

c- 

— 

-ADD DAMPING MODIFICATIONS 

i 

i B3 

c 



i 

184 



IF(NSL.NE.O) THEN 

i 

185 



DO 350 I = 1 , N 


186 


350 

G(NRC(I, 1, IP) ,NRC(I,2, IP) ) = DMF' ( I , IP) *FUNC ( JFUN (1,2) ) + 

r? 

187 


1 

G(NRC (I , 1 , IP) , NRC (1,2, IP) ) 

i 

183 



END IF 

i 

189 

c 



i 

190 



IF (NSA (IP) .NE.O) THEN 

i 

191 



DO 400 I = 1, NSA (IP) 

2 

192 



NN=N+ I 

<■> 

193 


400 

G (NRC (NN, 1, IP) , NRC (NN, 2, IP) >=DMP(NN, IP) *FUNC ( JFUN (NN+ IK, 2) )- 

<“> 

194 


1 

G (NRC (NN, 1, IP) , NRC (NN, 2, IP) ) 

1 

195 



END IF 

1 

196 

c 



1 

197 



IF ( IP. EQ. 1 ) CALL TRANS (AR. LRDOF, NRDOF, NRMOD. G, LG, AR, LRDOF, 

1 

19B 


1 

NRDOF, NRMOD, A, LDYN, WK) 

1 

199 



IF (IP. EG!. 2) CALL TRANS (AR, LRDOF, NRDOF. NRMOD, G, LG, AC, LCDOF, 

1 

200 


1 

NCDOF , NCMOD , A ( 1 , NRMOD+ 1 ) , LD YN , WK ) 

1 

201 



IF (IP. EQ . 3 ) CALL TRANS (AC, LCDOF. NCDOF, NCMOD, G, LG, AR, LRDOF, 

1 

202 


1 

NRDOF , NRMOD , A (NRMQD+ 1 , 1 ) , LDYN , WK ) 

1 

203 



IF (IP. EO. 4) CALL TRANS (AC, LCDOF, NCDOF, NCMOD. G, LG, AC, LCDOF . 

1 

204 


1 

NCDOF, NCMOD, A (NRMOD+1 , NRMOD+1 ) , LDYN. WK! 

1 

205 

c 



1 

206 

c- 


-RESET G 

1 

207 

c 



1 

208 



DO 450 1=1, NSA (IP) +N 

2 

209 


450 

G(NRC(I, 1, IP) , NRC (I, 2, IP) ) = 0.0 

1 

210 

c 



1 

211 

1000 IK 

: = IK + NSA (IP) 


212 

c 




213 


END 


Name 

Type 

Of f set 

P 

Cl ass 


A 

REAL*8 

44 

* 



AC 

REAL 

0 

* 



AR 

REAL 

4 

* 



DMP 

REAL 

8 

* 



DRPM 

REAL 

178 


/DATA 

/ 

FHIGH 

REAL 

184 


/DATA 

/ 

FLOW 

REAL 

188 


/DATA 

/ 

FUNC 

REAL 

60 

* 



G 

REAL 

48 

* 



I 

INTEGER*2 

148 




IK 

INTEGER*2 

168 




IP 

INTEGER* 2 

170 




IPLTF 

INTEGER*2 

192 


/DATA 

/ 
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IFRT 

INTEGER*2 

168 


/DATA 

/ 

IPRT2 

INTEGER*2 

194 


/DATA 

/ 

IPRT3 

INTEGER*2 

196 


/DATA 

/ 

J 

INTEGER*2 

156 




JFUN 

INTEGER*2 

12 

* 



KCRT 

INTEGER*2 

170 


/DATA 

/ 

KRPM 

INTEGER* 2 

154 


/DATA 

/ 

LCDOF 

INTEGER*2 

16 

* 



LDYN 

INTEG£R*2 

•—‘X- 

* 



LG 

INTEGER*2 

52 

« 



L.RDOF 

INTEGER*2 

20 

w 



LSA 

INTEGER*2 

24 

* 



L.SJ 

INTEGER-* 2 

28 

# 



N 

INTEGER *2 

164 




NCDOF 

INTEGER*2 

6 


/DATA 

/ 

NCMOD 

INTEGER* 2 

n 

X 


/DATA 

/ 

NFGEN 

INTEGER* 2 

156 


/DATA 

/ 

NGYRO 

INTEGER*2 

0 


/DATA 

/ 

N I 

INTEGER* 2 

182 


/DATA 

/ 

NMQDES 

INTEGER*2 

166 




NN 

INTEGER*2 

184 




NRC 

INTEGER*2 

36 

* 



NRDOF 

INTEGER *2 

8 


/DATA 

/ 

NRMOD 

INTEGER*2 

4 


/DATA 

/ 

NSA 

INTEGER*^! 

158 


/DATA 

/ 

NSL 

INTEGER* 2 

166 


/DATA 

/ 

NXTC 

INTEGER*2 

172 


/DATA 

/ 

RFMl 

REAL 

174 


/DATA 

/ 

S 

REAL 

40 

* 



TITL 

CHAR* 1 

10 


/DATA 

/ 

WK 

REAL*8 

56 

* 




214 *AN5R. FOR* ************************************************************** ******* 

215 C 

216 C ANSR ORGANIZES OUTPUT INFORMATION AND PLOTS, SAVES 

217 C THAT INFORMATION PER USER REQUEST. 

218 C ANSR CALLS SUBROUTINE ZSORT. 

219 C 

220 C*********************************************************************** 

221 0 

222 SUBROUTINE ANSR ( Z , LDYN, RF'M, W, ZRPM) 

223 C 

224 REAL*8 Z <2, LDYN, 1 > , WZ 

225 C 

226 DIMENSION ZRPM < 1 > , W (2, 1 > , NSA < 4) 

227 C 

228 LOGICAL PLOT 

229 C 

230 CHARACTER TITL (72,2) *i , TAPE4«10 

231 C 

232 COMMON / DATA /NGYRO , NCMOD, NRMOD , NCDOF , NRDQF , T I TL , KRPM , NFGEN , 

233 + NSA, NSL, IFRT, KCRT, NXTC, RPM1 , DRFM, I'll , FHIGH, FLOW, 

234 + IPLTF, IPRT2, IPRT3 

235 C 

236 C COMPRESS THE EIGENVALUE AND EIGENVECTOR ARRAYS 

237 C (CORRECTING FOR REAL ROOTS) 

238 C 

239 N = NRMOD + NCMOD 
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1 245 
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1 247 

1 249 

1 249 

1 250 

1 251 
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2 255 

2 256 

257 

258 

259 

260 
261 
262 

1 263 

1 264 

2 265 

2 266 
2 267 

2 268 
2 269 

2 270 

2 271 

2 272 

3 273 

3 274 

3 275 

3 276 

3 277 

3 278 

2 279 

280 

281 

282 

283 

284 

285 

286 
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283 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 
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K=1 
C 

DO 20 I = 1 , N 
IF I X=I*2— K 

IF(W<2, 1FIX) .EQ.O. ) THEN 
IF <K. EQ. 1 ) THEN 
K=2 
ELSE 


C 

C- 

C 

C 


C 

C- 

C 

C 


C 

c- 

c 


c 


K— i 

IF I X=I*2-K 
END IF 
END IF 

W(l, I>=W<1, IFIX) 

W<2, I)=W<2, IFIX) 

DO 20 J=1,N 
Z<1,J,I)=ZU,J+N,IFIX> 

20 Z(2,J,I)=Z <2, J+N, IFIX) 

SORT THE ARRAYS WITH RESPECT TO FREQUENCY 

N2=N 

DO 9 I = 1., N-l 
N2=N2-1 
DO 9 J=1„N2 

I F ( W ( 2 , J ) . LE . W ( 2 , J + 1 > ) SOTO 9 
' WZ=W<1, J+l) 

mu, j+i)=wa,j) 

W(1,J)=WZ 
WZ=W (2. J + l ) 

W<2, J+1)=W<2, J) 

W(2, J)=WZ 
DO 8 K- 1 , N 

wz=za,K, j+i) 

Z(1,K,J+1)=Z<1,K,J> 

Z <1,K, J)=WZ 
WZ=Z (2,K, J-H) 

Z (2,K, J + l >=Z (2, K, J > 

8 Z (2,K, J ) =WZ 

9 CONTINUE 

DETERMINE WHETHER THE MODE SHAPES SHOULD BE STORED FOR 

PRINTING/PLOTTING LATER 

F'LOT=. FALSE. 

IFCIPRT3. EQ.O. OR. IPRT. EQ.O) THEN 
J = 1 

24 IFlJ.LE.KRFTi) THEN 

IF (RFM. EQ. ZRPM ( J ) ) PLOT=.TRUE. 

J=J + 1 
GOTO 24 
END IF 
ENDIF 

STORE AND PLOT RESULTS 

WRITE (6,7) 

WRITE (*, 7) 

...FOR EACH MODE, WRITE RESULTS 
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299 
1 300 

1 30 1 

1 302 

1 303 

1 304 

1 305 

1 306 

1 307 

308 

309 

3 1 0 
31 1 
312 


1 


C 


19: 1 


7 

DO 35 1=1, N 


V3. 13 8/0 


C = W (2, I ) * 9.54929 
WRITE (6, 30) I, (W(J,I),J=1,2),C 
WRITE (*,30) I. (W(J, I) , J=l,2> ,C 
I F<. NOT. PLOT) GOTO 35 

...IF THIS MODE SHAPE IS TO BE PLOTTED, STORE SHAPE 

IF<C.GE. FLOW. AND. C.LE.FHIGH) WRITE(3> RPM, I,(W(J,I),J=1,2), 
+ ( (SNGLIZ (J,L, I > ) , J=1 , 2) ,L=1 ,N> 


35 CONTINUE 

C STORE EIGENVALUES 

WRI TE (2) < (W(J. I) , J=1 ,2) , I=i,N» 

C 

C FORMAT STATEMENTS 

C 


313 

314 

315 

316 

317 


7 FORMAT <//5X, ’MODE' , 1 IX, ' REAL’ 
30 FORMAT (4X, I4,3<5X, 1PE15.5) ) 
8000 FORMAT (4HRPM=, F6. 0) 

C 

END 


14X , 


IMAGINARY’ , 14X 


CPM ’ /) 


Name 

Type 

Offset 

P Class 

A 

REAL 

0 

* 

C 

REAL 

24 

* 

D 

REAL*8 

40 

* 

G 

REAL 

16 

* 

I 

INTEGER*2 

414 


J 

INTEGER*? 

422 


K 

INTEGER*2 

430 


L 

INTEGER*? 

438 


LRA 

INTEGER*? 

4 

* 

LRC 

INTEGER*? 

28 

* 

LRD 

INTEGER*? 

44 

* 

LRG 

INTEGER*? 

20 

* 

M 

INTEGER*? 

446 


NCA 

INTEGER*? 

12 

* 

NCC 

INTEGER*? 

36 

* 

NRA 

INTEGER*? 

8 

* 

NRC 

INTEGER*? 


* 

WK 

REAL*8 

48 

* 


378 *LIST 



Name Type 

Size 

Class 

ANSR 


SUBROUTINE 

DATA 

198 

COMMON 

EIGRF 


SUBROUTINE 

F0RT03 


SUBROUTINE 

MATX 


SUBROUTINE 

TRANS 


SUBROUTINE 


Pass One No Errors Detected 
378 Source Lines 
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30 
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35 

36 

37 
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40 

41 

42 

43 

44 

45 

46 

47 

48 
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♦PSTRSTAB. FOR*********************************************************** 
C 

C PROGRAM PSTRSTAB 

C 

C ROTOR DYNAMICS ANALYSIS PROGRAM 

C 

C************************************************************ *********** 

c 

PRINCIPAL SUBROUTINES UTILIZED IN PSTRSTAB ARE CALLED 
IN THE FOLLOWING ORDER: 


FNCPLT FUNCTION GENERATOR PLOTS 

CRTPLT CRITICAL SPEED PLOTS 

STBPLT ........ STABILITY PLOTS 

SHPPLT . MODE SHAPE PLOTS 


C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c***» ************************************************************* ****** 

c 

C INPUT FILE NAMES DESCRIPTION 

C ‘ 

C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 

C 

c 
c 
c 
c 

r 
C 

c 
c 
c 

c** *************************************************************** ****** 

*storage:2 

c 

PROGRAM PSTRSTAB 

c 

CHARACTER TI TL (72, 2) *1 , TYTL <48) *1 , BANNR (31 *31 ,TAPE4*14 
C 

EQUIVALENCE (AR,W>, (AR.FG), (TITL, TAPE4) . (AC,SF) 


FGPLTS.BIN 


El GENS. BIN 


SHAPES. BIN 


FIN. BAT 


OUTPUT FILE NAMES 


LIST3 


VECT. TMP, MAPS. TMP 


BINARY FILE CREATED BY PROGRAM PRERSTAB 
CONTAINING THE FUCTION GENERATOR DATA FOR 
PLOTTING 

BINARY FILE CREATED BY PROGRAM RSTAB 
CONTAINING THE EIGENVALUES AT EACH RPM STEP 
FOR CRITICAL SPEED AND STABILITY PLOTTING 

BINARY FILE CREATED BY PROGRAM RSTAB 
CONTAINING THE COMPLEX MODE SHAPES FOR MODE 
SHAPE PLOTTING 

FORMATTED IBM BATCH FILE USED TO DETERMINE 
WHETHER TO PRINT THE OUTPUT LISTING DATA 
IMMEDIATELY, OR TO WRITE THE INFORMATION TO 
TEMPORARY FILE ’ LIST3’ 

DESCRIPTION 


FORMATTED OUTPUT LISTING CREATED ONLY IF 
OUTPUT IS NOT PRINTED IMMEDIATELY 

BINARY TEMPORARY FILES CREATED BY THE PL0TT88 
LIBRARY. THESE WILL BE DELE1TED UPON NORMAL 
TERMINATION OF THE PL0TT8S ROUTINES 
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Li ne# 
60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
1 00 
101 
1 02 

1 03 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 
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C 

C* ARRAY DIMENSIONS MOST LIKELY TO CHANGE **************************** 


C 

C NOTE: 

C 

c 

c 

c 


DIMENSION VECT 
W 

z 

FG, SP 


2, NROT+NCASE 
2, LMOD , Nl-t-l 
2, LMOD 
NPTS+2 


DIMENSION AR(115, 16) , AC (50, 14) , FG(22> , SP <22> , I CASE (20) , IROT (20) , 
+ X ( 10) , VECT (2, 40) , W (2, 30,51 ) , Z (2, 30) 

p 

C*********** ******************************************* ********'****** * 
C 

COMMON /MEM/AR, AC, VECT, Z , ICASE, IROT 
C 

COMMON /DATA/NCMOD, NRMOD, NCDOF , NRDOF, TI TL, TYTL , RZ (6) , IFLTF, 

+ IPRT2, IPRT3.RZ1 (6) ,NZ (4) , NCASE , NROT , NST AT , IFLG, 

+ I FLG1 , TH, SC , IPRT , KCRT, RPM1 , DRPM, NI , IPCNT, ISCNT 

C 

COMMON /DIMS/DIMX , DIMY, FNX , FNY, FACTX , FACTY , XASP, VECTX (4) , 

+ VECTY (4) 

C 

C* DATA STATEMENTS NEEDED FOR ARRAY RED I MENS I ON I NG ******************* 

C 


DATA LCDOF, LRDOF, LM0D/50, 115,30/ 

C 


c** ************************************************************** ****** 

c 

DIMX=6. 1 125 
D I MY=4 . 8900 
XASP= . 890 
C 

C OPEN LISTING FILE 

C 

OF'EN (2, F I LE=* FIN. BAT' , STATUS^’ OLD’ ) 

TAPE4=’PRN’ 

READ ( 2 , 9000 , END=5 ) TAPE4 
5 CLOSE (2) 

OPEN ( 6 , F I LE=TAF'E4 , ST ATUS= ' NEW ' ) 

C 

c OPEN PLOT DATA FILES 

C 

OPEN ( 1 ,FILE= ? FGPLT3. BIN' ,STATUS=’ OLD' , FORM—’ UNFORMATTED' ) 

OPEN <2, FILE=’ El GENS. BIN' , STATUS=’ OLD’ ,FORM=’ UNFORMATTED' ) 

OPEN ( 3 , F I LE= ' SHAPES. BIN’ , STATUS=’ OLD’ ,FORM=' UNFORMATTED' ) 

C 


C INITIALIZE CRT 

C 

CALL QBORD(l) 

CALL QCSI Z (0,0) 

C 

C INITIATE PL0TS8 USAGE 

C 

10 CALL PLOTS (0,0, 1 ) 

C 

C READ SUBCASE DATA 

C 

READ (2) IPLTF, IPRT2, TITL, RZ , RZ 1 , RPM1 , DRPM, NI , FHIGH, FLOW, NRMOD, 
+ NCMOD, NZ, KCRT, IPCNT, ISCNT, NXTC 
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124 

125 

126 
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131 
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133 


1 

C 


C 

C- 

C 


C 




c 
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READ < 3 ) I PRT , I PRT3 , NCDDF , NCMOD , NRDOF , NRMOD , NCASE . NROT , T I TL , 
NSTAT, IFLG, IFLG1,TH,SC, IPCNT, ISCNT, NXTC 


SUBCASE HEADER 

CALL QCLEAR (1,7) 

CALL QCMOV (O, 24) 

WRITE (6,8002) IPCNT, ISCNT, T1TL 
WRITE (*, B002) IPCNT, ISCNT, TITL 

WRITE < 6,8003) NRDOF, NRMOD, NCDOF, NCMOD 
WR I TE ( * , 8003 ) NRDOF , NRMOD , NCDOF , NCMOD 


134 WRITE (6, 8004) RF'Ml , DRPM, NI 

135 WRITE <* , 8004 ) RPM1,DRPM,NI 

136 C 

137 C F UNCTION GENERATORS 

138 C 

1 39 READ ( 1 ) I PCNT , I SCNT 

140 C 

141 FNY=10. 

142 FNX=ANINT <FNY*1 . 25) 

143 C 

144 FACTY=DIMY/FNY 

145 FACTX=DIMX/FNX 

146 C 

147 15 READ ( 1 ) IFGEN, TYTL, TITL, NPT, (SP ( I ) , FG ( I ) , 1=1, NPT) 

148 IF (IFGEN. GT.O) THEN 

149 CALL FNCPLT (FG,SP,NPT> 

150 GOTO 15 

151 END IF 

152 C 

153 C C RITICAL. SPEEDS/STABILITY 

154 C 

155 N = NCMOD + NRMOD 

156 C 

157 DO 20 J=1,NI+1 

158 READ (2 ) ( (W (K, I , J ) , K=1 , 2) , 1=1 , N) 

159 20 CONTINUE 

160 IF (IPLTF.EQ.O.OR. IPRT2.EG.0) THEN 

161 CALL CRTPLT < W , LMOD , MH I GH > 

162 ' IF ( IPRT2. EO.O. AND. MHIGH. NE.O) CALL STBF'LT < W, LMOD, MHI GH) 

163 END IF 

164 C 

165 C R OOT LOCUS (TO BE WRITTEN) 

166 C 

167 C CALL LOCUS (W, LMOD) 

168 C 

169 C M ODE SHAPES 

170 C 

171 READ (3) ( (AC ( I , J ) , I=1,NCDDF> ,J=1, NCMOD) , ( ( AR ( I , J ) , 1=1, NRDOF) , 

172 + J=l, NRMOD) , <ICASE( I) , 1=1, NCASE) , (IROT (I) , 1=1 , NROT ) , 

173 + (X(I), 1=1, NSTAT) 

174 C 

175 CALL SHFPLT(VECT, Z, AC, AR, ICASE, IROT, LMOD, LCDOF.LRDOF, X) 

176 C 

177 C DUMP PLOT BUFFER 
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178 C 

179 CALL PLOT (0. ,0. ,999) 

180 C 

181 C RERUN? 

182 C 

183 IF (NXTC. NE. 4) GOTO lO 

184 C 

185 C CLOSE DATA FILES 

186 C 

187 CLOSE ( 1 ) 

188 CLOSE (2) 

189 CLOSE (3) 

190 C 

191 C COMPLETION BANNER 

192 C 

193 CALL QTIME(NZ,NZ (2) ,NZ (3) ,NZ (4> > 

194 N Z < 3 ) = NZ<3) + NZ (41/100. + 0.5 

195 WRITE (6, 8000) (NZ < I ) , 1=1 , 3) 

196 WRITE (*,8000) (NZ < I ) , I =1 , 3) 

197 C 

198 C CLOSE LISTING FILE 

199 C 

200 CLOSE (6) 

201 C 

202 C. FORMAT STATEMENTS 

203 C 

204 8000 FORMAT (6 (/) ,2X,78(1H*) /7H ♦****, 68X , 5H*****/7H ***#*, 18X, 

205 + 22HEXECUTI0N COMPLETED AT, 13, 2(1H: , 12) , 19X,5H*****/ 

206 + 7H ***•#*, 68X, 5H****#/2X, 78(1H*> ) 

207 8002 FORMAT (1H1///5X,4('* SUBCASE PLOTTING', 

208 + 4 ( ' *') ///20X. 'MODAL INPUT ' ,12, 5X SUBCASE' , 1 2/2 ( //5X , 72A) 


209 + //) 

210 8003 FORMAT <5X, ' NO. OF ROTOR DOF =’ , 14. 5X, ’ NO. OF ROTCR MODES =',I4// 

211 + 5 X , ' NO . OF CASING DOF =’ , 14, 5X, ' NO. OF CASING MODES =’,I4/> 

212 8004 FORMAT </5X, 'RPM1 = ' , 1 PE 1 3. 5, 8X , ’ DRPM =’ , E 1 3. 5, BX , ’ IP =’,I4) 

213 9000 FORMAT <//4X, A) 

214 C 

215 END 


Name 

Type 

AC 

AN I NT 

REAL 

AR 

REAL 

BANNR 

CHAR*3 1 

DIMX 

REAL 

DIMY 

REAL 

DRFM 

REAL 

FACTX 

REAL 

FftCTY 

REAL. 

FG 

REAL 

FHIGH 

REAL 

FLOW 

REAL 

FNX 

REAL 

F NY 

REAL 

I 

INTEGERS 

I CASE 

INTEGERS 

IFGEN 

INTEGER*2 

I FLG 

INTEGER*2 


Off set P 

Class 


7360 

/MEM 

/ 


INTRINSIC 

0 

/MEM 

/ 

42 

0 

/DIMS 

/ 

4 

/DIMS 

/ 

288 

/DATA 

/ 

16 

/DIMS 

/ 

20 

/DIMS 

/ 

0 

/MEM 

/ 

142 

146 

8 

/DIMS 

/ 

12 

/DIMS 

/ 

156 

10720 

/MEM 

/ 

1 co 
1 Ja. 

268 

/DATA 

/ 
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IFLG1 

INTEGER*2 

270 

/DATA 

/ 

IPCNT 

INTEGER*2 

294 

/DATA 

/ 

I F'LTF 

INTEGER*2 

224 

/DATA 

/ 

IPRT 

INTEGER*2 

280 

/DATA 

/ 

IPRT2 

INTEGER*2 

226 

/DATA 

/ 

IPRT3 

INTEGER*2 

228 

/DATA 

/ 

I ROT 

INTEGER*2 

10760 

/MEM 

/ 

ISCNT 

INTEGER*2 

296 

/DATA 

/ 

J 

I NTEGER*2 

162 



K 

I NTEGER*2 

170 



KCRT 

I NTEGER*2 

282 

/DATA 

/ 

LCDOF 

INTEGER*2 

1 36 



L.MOD 

INTEGER*2 

140 



LRDOF 

INTEGER*2 

138 



MHIGH 

INTEGER*2 

174 



N 

INTEGER*2 

160 



NCASE 

INTEGER*2 

262 

/DATA 

/ 

NCDOF 

I NTEGER*2 

4 

/DATA 

/ 

NCMOD 

I NTEGER*2 

0 

/DATA 

/ 

N I 

INTEGER*2 

292 

/DATA 

/ 

NPT 

INTEGER*2 

154 



NRDOF 

INTEGER*2 

6 

/DATA 

/ 

NRMOD 

INTEGER*2 

2 

/DATA 

/ 

NR OT 

I NTEGER*2 

264 

/DATA 

/ 

NSTAT 

INTEGER*2 

266 

/DATA 

/ 

NX TC 

INTEGER*2 

150 



NZ 

INTEGER*2 

254 

/DATA 

/ 

RPM1 

REAL 

284 

/DATA 

/ 

RZ 

REAL 

200 

/DATA 

/ 

RZ1 

REAL 

230 

/DATA 

/ 

SC 

REAL 

276 

/DATA 

/ 

SP 

REAL 

7360 

/MEM 

/ 

TAPE 4 

CHAR* 14 

8 

/DATA 

/ 

TH 

REAL 

272 

/DATA 

/ 

TITL 

CHAR* 1 

8 

/DATA 

/ 

TYTL 

CHAR* 1 

152 

/DATA 

/ 

VECT 

REAL 

10160 

/MEM 

/ 

VECTX 

REAL 

28 

/DIMS 

/ 

VECTY 

REAL 

44 

/DIMS 

/ 

W 

REAL 

0 

/MEM 

/ 

X 

REAL 

2 



X ASF' 

REAL 

24 

/DIMS 

/ 

Z 

REAL 

10480 

/MEM 

/ 


Name Type 

Si z e 

Cl ass 

CRTPLT 


SUBF:QUTINE 

DATA 

29B 

COMMON 

DIMS 

60 

COMMON 

FNCPLT 


SUBROUTINE 

MEM 

12240 

COMMON 

PLOT 


SUBROUTINE 

FLOTS 


SUBROUTINE 

PSTRST 


PROGRAM 

QBORD 


SUBROUTINE 

QCLEAR 


SUBROUTINE 

QCMOV 


SUBROUTINE 
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01 
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D Line# 
QCSIZ 
QT I ME 
SHFPLT 
STBPL.T 
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SUBROUTINE 

SUBROUTINE 

SUBROUTINE 

SUBROUTINE 


Pass One No Errors Detected 
215 Source Lines 
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1 *FNCPLT***************************************************************** 

2 C 

3 C SUBROUTINE FNCPLT 

4 C 

5 C PLOTS FUNCTION GENERATORS 

6 C 

7 C********** ******************************************************* ****** 

8 C 

9 ^STORAGE: 2 


10 c 

11 SUBROUTINE FNCPLT (FG,SP,N) 

12 C 

13 DIMENSION FG ( 1 ) , SP ( 1 ) 

14 C 

15 CHARACTER* 1 TITL (72, 2) ,TYTL (48) 

16 C 

17 COMMON /DATA/NCMOD, NRMOD , NCDQF, NRDOF, TI TL, TYTL, RZ (6) , IPLTF, 

18 + IPRT2, IPRT3.RZ1 (6) , NZ (4) , NCASE, NRQT, NSTAT, IFLG, 

19 + IFLG1 , TH, SC , IPRT, KCRT , RPM1 , DRPM, NI , I PONT, I SCNT 

20 C 

21 COMMON /D I MS /D I MX, DIMY , FNX, FNY, FACTX, FACTY, XASF', VECTX (4) , 

22 + VECTY (4) 

23 C 

24 C PLOT HEADING AND SET PLOT ORIGIN 

25 C 

26 CALL HEAD IN ( . 193) 

27 C 

28 C SCALE FUNCTION GENERATOR 

29 C 

30 CALL SCALE (SP, FNY, N, 1) 

31 CALL SCALE (FG, FNX , N, 1 ) 

32 C 

33 C DRAW X/Y AXES 

34 C 

35 CALL AXESC AMPLITUDE’ ,9, FG(N+1> ,FG(N+2> , 

36 + ’SPEED (RF'M) ’ , 12, SP (N+ 1 > , SP (N+2) ) 

37 C 

38 C FIX X AXIS FOR PLOTTING ON 180. DEGREES 

39 C AND DISTORTED SCALE 

40 C 

41 FG (N+2) =— FG (N+2) *FACTY/FACTX 

42 C 

43 C PLOT FUNCTION 

44 C 


45 CALL LINE (FG, SP, N, 1, 1,2) 

46 C 

47 C PLOT BORDER 

48 C 

49 CALL NEWPEN (2) 

50 CALL BOX (0. ,0. , -FNX*FACTX /FACTY, FNY) 

51 CALL NEWPEN U) 

52 C 

53 C PLOT DASHED LINES IN X DIRECTION 

54 C 

55 CALL STDASH ( . 03760/FACTY , . 03760/FACTY) 

56 DO 10 1=1 , INT (FNY) 

1 57 CALL PLOTD (0. , FLOAT < I ) , 3) 

1 58 10 CALL PLOTD ( -DIMX/FACTY, FLOAT ( I ) , 2) 

59 C 
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PLOT DASHED LINES IN Y DIRECTION 

DO 15 1=1, INT(FNX) 

CALL PL0TD(-I*FACTX/FACTY,0. ,3) 

15 CALL PLOTD <-I#FACTX/FACTY , FNY ,2) 

END OF PLOT 

CALL PL0T<0. ,0. ,-999) 

END 


Name 

Type 

0-f -f set 

P 

Cl ass 


DIMX 

REAL 

0 


/DIMS 

/ 

DIMY 

REAL 

4 


/DIMS 

/ 

DRPM 

REAL 

288 


/DATA 

/ 

FACTX 

REAL 

16 


/DIMS 

/ 

FACTY 

REAL 

20 


/DIMS 

/ 

FG 

REAL 

0 

# 



FLOAT 




INTRINSIC 

FNX 

REAL 

8 


/DIMS 

/ 

FNY 

REAL 

12 


/DIMS 

/ 

I 

INTEGER*? 

2 




IFLG 

INTEGER*? 

268 


/DATA 

/ 

IFLG1 

INTEGER*? 

270 


/DATA 

/ 

I NT 




INTRINSIC 

IF'CNT 

integer*? 

294 


/DATA 

/ 

IF'LTF 

integer*? 

224 


/DATA 

/ 

IF'RT 

integer*? 

280 


/DATA 

/ 

IPRT2 

INTEGER*? 

226 


/DATA 

/ 

IPRT3 

INTEGER*? 

228 


/DATA 

/ 

ISCNT 

INTEGER*? 

296 


/DATA 

/ 

KCRT 

INTEGER*? 

282 


/DATA 

/ 

N 

integer*? 

8 

* 



NCASE 

integer*? 

262 


/DATA 

/ 

NCDOF 

integer*? 

4 


/DATA 

/ 

NCMOD 

integer*? 

0 


/DATA 

/ 

N I 

integer*? 

292 


/DATA 

/ 

NRDOF 

integer*? 

6 


/DATA 

/ 

NRMOD 

integer*? 

9 


/DATA 

/ 

NROT 

integer*? 

264 


/DATA 

/ 

NSTAT 

integer*? 

266 


/DATA 

/ 

N2 

integer*? 

254 


/DATA 

/ 

RPM1 

real 

284 


/DATA 

/ 

RZ 

REAL 

200 


/DATA 

/ 

R21 

REAL 

230 


/DATA 

/ 

SC 

REAL 

276 


/DATA 

/ 

SF 

REAL 

4 

* 



TH 

REAL 

272 


/DATA 

/ 

TITL 

CHAR*1 

8 


/DATA 

/ 

TYTL 

CHARM 

152 


/DATA 

/ 

VECTX 

REAL 

28 


/DIMS 

/ 

VECTY 

REAL 

44 


/DIMS 

/ 

XASP 

REAL 

24 


/DIMS 

/ 


71 *CRTPLT. FOR*******#**#**************###********#***#******'*********** 

72 C 
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D Line# 1 

60 C— 

61 C 

62 

1 63 

1 64 

65 C 

66 C— 

67 C 

68 

69 C 

70 


U W 





D 


Li ne# 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 
117 
1 18 
1 19 
120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 
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C SUBROUTINE CRTPLT 

C 

C CRTPLT PLOTS CRITICAL SPEEDS 

C 

C NOTE: CRTPLT RETURNS MHIGH (HIGHEST MODE NUMBER FITTING INTO 

C THE SPECIFIED BOUNDS FOR THE CRITICAL SPEED PLOT). THIS 

C NUMBER IS NEEDED BY SUBROUTINE STBPLT , SO IT MUST BE 

C CALCULATED REGARDLESS OF WHETHER THE CRITICAL SPEED PLOT 

C WAS REQUESTED. 

C 

C******************************#********'****************************'*'** 

c 

SUBROUTINE CRTPLT <W, LMOD, MHIGH) 

C 

CHARACTER TITL (72, 2) *1 , TYTL*48 
C 

DIMENSION W (2, LMOD, 1 ) , VECTX (4) , VECTY (4) 

C 

EQUIVALENCE (VECTX (2) , CRITM) , (VECTY (2) , RPM) 

C 

COMMON /DATA/NCMOD, NRMOD, NCDOF, NRDOF, TITL, TYTL, XB, XR„ YB, YT, 

+ DX.DY, IPLTF, IPRT2, IPRT3, RZ 1 (6) ,NZ (4) , NCASE , NROT , 

+ NSTAT, IFLG, IFLG1 , TH, SC, IPRT, KCRT, RPM1 , DRF'M, NI , 

+ IPCNT, ISCNT 

C 

COMMON /DIMS/D I MX , DIMY, FNX, FNY , FACTX , FACTY, X ASP, VECTX , VECTY 

C 

TYTL=’ ROTQRDYNAMIC CRITICAL SPEED PLOT’ 

N = NRMOD+NCMOD 
C 

IF ( IPLTF. EQ.O) THEN 


C 

C PLOT HEADER 

C 

CALL HEAD IN ( . 232) 
C 

C Y DIRECTION SPECS 


C 

FNY=(XR-XB) /DX 
FACTY=DIMY/FNY 
VECTY (3) =XB 
VECTY (4) =DX 
C 

C X DIRECTION SPECS 

C 

IF (DY.GE. 1. ) THEN 
FNX= ( YT-YB) /DY 
ELSE 

FNX=ANINT (FNY*1 . 25) 

C NOTE: SCALE DESTROYS DX 

CALL SCALE <YB, FNX ,2,1) 

YB=DX 

YT=YB+FNX*DY 
END IF 

VECTX (3) =YB 
VECTX (4>=DY 
FACT X=D I MX /FNX 
C 

C —DRAW X/Y AXES 
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CALL AXES (’NATURAL FREQUENCY - CYCLES/MINUTE’ , 33, VECTX (3) , 

VECTX (4) , ’ROTOR SPEN SPEED - RPM’ , 22, VECTY (3) , 

VECTY (4) > 


-FIX VECTX (4) FOR PLOTTINB DN 180 DEGREE AXIS 
AND DISTORTED SCALE 


VECTX (4) = -VECTX <4> *FACTY/FACTX 


-DRAW SYNCHRONOUS LINE 


VECTY ( 1 ) = AMAX1(XB,YB> 

IF (VECTY ( 1 ) . GT. XR) GOTO 5 
VECTY (2) = AMIN1 ( YT, XR) 

VECTX (1) = VECTY (1) 

VECTX (2) = VECTY (2) 

CALL LINE (VECTX, VECTY, 2, 1,0, 0> 


-DRAW HALF-SYNCH. LINE 


155 

156 

157 

158 C 

159 

160 

161 C 

162 

163 

164 C 

165 C- 

166 C 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 C 

181 

182 C 

183 C- 

184 C 

185 

186 

187 

188 C 

189 C- 

190 C 


VECTY (1) = AMAX1 <XB, YB*2) 

IF (VECTY (l).GT.XR) GOTO 10 
VECTY (2) = AM INI <YT*2, XR) 

VECTX (1) = VECTY ( 1 ) /2 
VECTX (2) = VECTY (2) /2 

CALL LINE(VECTX, VECTY, 2, 1,0,0) 

END IF 

-PLOT A SYMBOL AT EACH DATA POINT IN THE PLOT WINDOW 


10 MHIGH=0 

DO 200 I— 1,NI+1 

RPM = RPM1 + DRPM* ( 1-1 ) 

I F ( RPM . GE . X B . AND . RPM . LE . XR ) THEN 
DO 100 J = 1,N 

CRITM = W (2, J , I ) *9.54929 

IF (CRITM. GE. YB. AND. CRITM. LE. YT) THEN 

IF ( IPLTF.EQ. O) CALL LINE (CRITM, RPM, 1 , 1 , -1 , 1 1 > 
MHIGH=MAXO (MHIGH, J) 

END IF 

LOO CONTINUE 

END IF 

200 CONTINUE 

IF ( IF'LTF. EQ. 0) THEN 


-PLOT BORDER 
CALL NEWF'EN (2) 

CALL BOX (0.,0. , -FNX*FACTX/FACTY,FNY) 
CALL NEWF'EN ( 1 ) 

-PLOT Y DIRECTION DASHED LINES 
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D 


1 

1 


1 


Line# 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 
207 


1 


C 

C 

C 


C 

c- 

c 


c 


25 
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CALL STDASH < . 03760/FACTY , . 03760/FACTY > 

DO 25 1 = 1 , INT <FNY > 

CALL PLOTD <0. , FLOAT < I ) , 3) 

CALL PLOTD < -D I MX /FACTY , FLOAT < I > , 2 > 


PLOT X DIRECTION DASHED LINES 

DO 30 1 = 1 , INT <FNX) 

CALL PLOTD <-I*FACTX/FACTY, 0. , 3) 
30 CALL PLOTD < - 1 *FACT X /FACT Y , FNY , 2 ) 

END PLOT 

CALL PLOT (0. ,0. ,-999) 

END IF 

END 


Name 

Type 

Offset 

P 

Cl ass 


AtlAXl 




INTRINSIC 

AM INI 




INTRINSIC 

AN I NT 




INTRINSIC 

CRITM 

REAL 

32 


/DIMS 

/ 

DIMX 

REAL 

0 


/DIMS 

/ 

DIMY 

REAL 

4 


/DIMS 

/ 

DRPM 

REAL 

288 


/DATA 

/ 

DX 

REAL 

216 


/DATA 

/ 

DY 

REAL 

220 


/DATA 

/ 

FACTX 

REAL 

16 


/DIMS 

/ 

FACTY 

REAL 

20 


/DIMS 

/ 

FLOAT 




INTRINSIC 

FNX 

REAL 

8 


/DIMS 

/ 

FNY 

REAL 

12 


/DIMS 

/ 

I 

INTEGER*2 

18 




IFLG 

INTEGER*2 

268 


/DATA 

/ 

IFLG1 

INTEGER*2 

270 


/DATA 

/ 

INT 




INTRINSIC 

I FONT 

INTEGER* 2 

294 


/DATA 

/ 

IF’LTF 

INTEGER*2 

224 


/DATA 

/ 

IF'RT 

INTEGER*2 

2B0 


/DATA 

/ 

IFRT2 

INTEGER*2 

226 


/DATA 

/ 

IFRT3 

INTEGER*2 

228 


/DATA 

/ 

ISCNT 

INTEGER*2 

296 


/DATA 

/ 

J 

INTEGER*2 

26 




KCRT 

INTEGER*2 

282 


/DATA 

/ 

LMOD 

INTEGER*2 

4 

* 



MAXO 




INTRINSIC 

MHIGH 

INTEGER*2 

8 

« 



N 

INTEGER*2 

16 




NCASE 

I NTEGER*2 

262 


/DATA 

/ 

NCDOF 

INTEGER*2 

4 


/DATA 

/ 

NCMOD 

I NTEGER*2 

0 


/DATA 

/ 

N I 

INTEGER*2 

292 


/DATA 

/ 

NRDOF 

INTEGER* 2 

6 


/DATA 

/ 

NRMOD 

INTEGER*2 

*•> 

A. 


/DATA 

/ 

NROT 

INTEGER*2 

264 


/DATA 

/ 

NSTAT 

INTEGER*2 

266 


/DATA 

/ 

NZ 

INTEGER*2 

254 


/DATA 

/ 
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D Lined 1 
FIRM REAL 

RF'Ml REAL 

RZ1 REAL 

SC REAL 

TH REAL 

TITL CHAR* 1 

TYTL CHAR*48 

VECTX REAL 

VECTY REAL 

W REAL 

X ASP REAL 

XB REAL 

XR REAL 

YB REAL 

YT REAL 


48 

/DIMS 

/ 

284 

/DATA 

/ 

230 

/DATA 

/ 

276 

/DATA 

/ 

272 

/DATA 

/ 

8 

/DATA 

/ 

152 

/DATA 

/ 

28 

/DIMS 

/ 

44 

/DIMS 

/ 

0 * 
24 

/DIMS 

/ 

200 

/DATA 

/ 

204 

/DATA 

/ 

208 

/DATA 

/ 

212 

/DATA 

/ 
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208 

209 

210 
21 1 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 



226 

227 

228 

229 

230 

231 


234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 


♦STBPLT. FOR****** **************************************************** 

C 

C SUBROUTINE STBPLT 

C 

C STBPLT EXECUTES THE STABILITY PLOT OPTION 

C 

c** ************************************************************** ****** 

C ■ 


c 

c 

c 

c 

c 


c 

c~ 


SUBROUTINE STBPLT <W, LMOD, MH1GH) 

CHARACTER TITL (72, 2) *1 , TYTL*48 

DIMENSION W <2 , LMOD, 1 ) , VECTX <4) , VECTY (4) , NZ 1 (18) 

EQUIVALENCE (REALM, VECTX (2) ) , (RPM, VECTY (2) ) 

EXTERNAL X0ISP,YDISF 

COMMON /DATA/NCMOD,NRMOD,NCDOF,NRDOF, TITL, TYTL, RZ (6) , IF'LTF, 

+ IPRT2, IFRT3, XB1 , XR1, YB1 , YT1 , DX 1 , DY1 , NZ (4) ,NCASE, 

+ NROT, NSTAT, IFLG, IFLG1,TH,SC, IPRT, KCRT, RPM1 , DRPM, 

+ NI, IF'CNT, ISCNT 

COMMON /DIMS/D IMX , D I MY, FNX , FNY, FACTX , FACTY , XASF', VECTX, VECTY 

DEFINE THE PLOT SYMBOL CORRESPONDENCE WITH DISPLAY 


DATA NZ 1/1, 2, 3, 4, 6, 7, O, 11, 10, 12, B, 9, 13, 1,2, 3, 4, 6/ 
C 

C Y DIRECTION SPECS 

0 

VECTY (3 ) =XB 1 
VECTY (4) =DX 1 
FNY= (XR1-XB1 ) /DX 1 
FACTY=DIMY/FNY 
C 

C X DIRECTION SPECS 

C 

VECTX (3) =YB1 
VECTX (4) =DY1 
FNX= (YT1-YB1 ) /DY1 
FACTX =D I MX /FNX 
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D 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


2 


2 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


Li nett 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 
281 
282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 


1 

C 

c- 

c 

c 

c- 

c 


c 

c 

c- 

c 


c 

c- 

c 


c 

c- 

c 


c 

c- 

c 


c 

c- 

c 
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-FIX VECTX (4) FOR PLOTTING ON 180. DEGREE AXIS 
VECTX (4) = -VECTX (4) 


MAIN ROUTINE 

NPLTS = MHIGH/4. +0.9 
IF (KCRT. EG. 1 ) NPLTS=1 

DO 200 KOUNT = 1 , NPLTS 


PLOT HEADER 

TYTL=’ ROTQRDYNAMIC STABILITY PLOT’ 

. CALL HEADIN ( . 232 ) 

PLOT THE SYMBOL KEY 

IF (KCRT. NE. 1 ) THEN 
DO 5 1=1.4 

IF < ( KOUNT- 1 ) *4+1 . GT. MHIGH) GOTO 5 
WRITE (TYTL, ’ (12) ’ ) 1+4* (KOUNT-1 ) 

CALL SYMBOL (—5. 65+ ( I — 1 > *. 160, .271, .075,NZ1 (NZ(I) >,90. ,-l> 
CALL SYMBOL (-5. 61+ (1-1) *. 160, .380, . 118,'.'-’ ,90. , 1 > 

CALL SYMB0L(-5.61+(I-1>*. 160, .540, . 118, 'MODE ’,90., 5) 

CALL SYMBOL (-5. 61+ (I-D*. 160, .990, . 1 18, TYTL, 90. , 2> 

5 CONTINUE 

CALL SYMBOL (-5. 76, .381, . 118, ’SYMBOLS’ ,90. ,7) 

CALL BOX (-5.08, .200,-5.93, 1.21) 

ENDIF 

PLOT UNSTABLE/STABLE LABELS 

CALL SYMBOL (-5. 13,2.94, . 119, ’UNSTABLE’ .90. ,8) 

CALL BOX (-5.08,2.89,-5.28,3.69) 

CALL SYMBOL (-. 870,2.94, . 119, ’STABLE’ , 90. ,6) 

CALL BOX (-.830,2.89,-1.02,3.51) 

DRAW X/Y AXES 

CALL AXES ( ’ LAMBDA REAL - 1 /SEC (DAMPING FACTOR) ’, 38, VECTX (3) 
+ -VECTX (4) ,’ ROTOR SPIN SPEED - RPM’ , 22, VECTY (3) , 

+ VECTY (4) ) 

PLOT SYMBOLS AT DATA POINTS IN THE PLOT WINDOW 

NZ9=1 1 
N=MHIGH 

DO 150 L.= 1 , N I + 1 

RPM—RPM1+ (L-l > *DRPM 

IF (RPM.LT. XB1 .OR. RPM.GT. XR1 ) GOTO 150 
Y-YDISP (RPM) 

IF (KCRT. NE. 1 ) N=4 
DO 100 I = 1 , N 
IK= (KOUNT-1 ) *4+1 
IFdK.GT. MHIGH) GO TO 150 
IF (KCRT. NE. 1 ) NZ9=NZ 1 (NZ ( I ) ) 

REALM = W(l, I K , L ) 


7 
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IF (REALM. LT.YB1. OR. REALM. GT.YT1) GOTO 100 
X=XDISP (REALM) 

CHECK FOR PLOT KEY WINDOW 

IF (KCRT. NE. 1 . AND. 

(X. LE. -5.08. AND. Y.GE. . 200. AND. X.GE. -5.93. AND. Y. LE. 1 . 21 ) ) 

GOTO 100 

CHECK FOR UNSTABLE/STABLE LABEL WINDOWS 

IF ( (X. LE. -5.08. AND. Y. GE.2.B9. AND. X . GE. -5. 28. AND. Y. LE. 3. 69) . OR. 
(X.LE. -.830. AND. Y.GE. 2. 89. AND. X. GE. -1 . 02. AND. Y. LE. 3. 51 ) ) 

GOTO 100 

CALL SYMBOL ( X/FACTY, Y/FACTY, . 075/FACTY, NZ9, 90. . — 1 > ' 

CONTINUE 
CONTINUE 


323 C 

324 C 


326 

327 C 

328 C- 

329 C 


334 C 

335 C 


—PLOT BORDER- 
CALL NEWPEN (2) 

CALL BOX (0. ,0. , -FNX*FACTX/FACTY, FNY) 


PLOT REALM=0 LINE 

CALL PLOT (XD ISP (0. ) /FACTY, YDI SP ( XB1 > /FACTY, 3) 

CALL PLOT ( XDI SP (O. ) 7 FACTY, YDI SP ( XR1 ) /FACTY, 2) 

CALL NEWPEN (1) 

PLOT X DIRECTION DASHED LINES (AVOID PLOT LABELING) 

CALL STDASH ( . 03760/FACTY, . 03760/FACTY) 

DO 10 1=1, I NT (FNY ) 

Y =FLO AT ( I ) *F ACT Y 

CALL PL0TD(0. , Y/FACTY, 3) 

IF (KCRT. NE. 1 . AND. (Y.GT. . 200 . AND . Y . LT . 1.21) ) THEN 
CALL FLOTD (-5. 08 /FACTY, Y/FACTY, 2) 

CALL F'LQTD (-5. 93/FACTY, Y/FACTY, 3) 

END IF 

IF (Y.GT. 2. 89. AND. Y. LT. 3.51) THEN 
CALL F'LOTD ( -. 830/FACTY, Y/FACTY, 2) 

CALL F'LOTD (-1 . 02/FACTY, Y/FACTY, 3) 

END IF 

IF(Y.GT.2.89. AND. Y.LT.3.69) THEN 
CALL F'LOTD (-5. 08/FACTY, Y/FACTY, 2) 

CALL F'LOTD (-5. 28/FACTY, Y/FACTY, 3) 

END IF 

CALL F'LOTD (-DIMX/FACTY, Y/FACTY, 2) 


-PLOT Y DIRECTION DASHED LINES (AVOID PLOT LABELING) 


DO 15 1=1 , I NT (FNX) 

X=-FLQAT ( I ) *FACTX 
CALL F'LOTD ( X/FACTY, 0. ,3) 

IF (KCRT. NE. 1 .AND. (X.GT.-5. 93. AND. X.LT.-5. 08) ) THEN 
CALL F'LOTD (X/FACTY, . 200/FACTY, 2) 

CALL F'LOTD (X/FACTY, 1 . 21 /FACTY, 3) 

ENDIF 

IF ( X . GT. -5. 28. AND. X . LT. -5. 08) THEN 
CALL F'LOTD (X/FACTY, 2. B9/FACTY, 2) 

CALL F'LOTD (X/FACTY, 3. 69/FACTY, 3) 

ENDIF 

IF (X.GT. -1.02. AND. X.LT.-. 830) THEN 
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D 

Li nett 

1 


7 Microsoft 

o 

368 



CALL PLOTD ( X/FACTY, 2. 89/FACTY, 2) 

n 

jL. 

369 



CALL PLOTD ( X/FACTY, 3. 51 /FACTY ,3) 

2 

370 



ENDIF 

2 

371 


15 

CALL PLOTD ( X/FACTY, FNY ,2) 

1 

372 

C 



1 

373 


200 

CALL PLOT (0. ,0. , -999) 


374 

C 




375 



END 


Name 

Type 

Offset 

P 

Cl ass 


DIMX 

REAL 

0 


/DIMS 

/ 

DXMY 

REAL 

4 


/DIMS 

/ 

DRPM 

REAL 

288 


/DATA 

/ 

DX1 

REAL 

246 


/DATA 

/ 

DY1 

REAL 

250 


/DATA 

/ 

FACTX 

REAL 

16 


/DIMS 

/ 

FACTY 

REAL 

20 


/DIMS 

/ 

FLOAT 




INTRINSIC 

FNX 

REAL 

8 


/DIMS 

/ 

FNY 

REAL 

12 


/DIMS 

/ 

I 

INTEGER*2 

92 




IFLB 

INTEGER*2 

268 


/DATA 

/ 

IFLG1 

INTEGER*2 

270 


/DATA 

/ 

IK 

INTEGER*2 

120 




INT 




INTRINSIC 

IF'CNT 

INTEGER*2 

294 


/DATA 

/ 

IF'LTF 

INTEGERS 

224 


/DATA 

/ 

IPRT 

INTEGER*2 

290 


/DATA 

/ 

IPRT2 

INTEGER*2 

226 


/DATA 

/ 

IPRT 3 

INTEBER*2 

228 


/DATA 

/ 

ISCNT 

INTEGERS 

296 


/DATA 

/ 

KCRT 

INTEGER*2 

282 


/DATA 

/ 

KOUNT 

INTEGER*2 

84 




L 

INTEGERS 

98 




L.MOD 

INTEGER*2 

4 

* 



MHI6H 

INTEGER*2 

8 

* 



N 

INTEGER*2 

96 




NCASE 

INTEGER*2 

262 


/DATA 

/ 

NCDOF 

INTEGER*2 

4 


/DATA 

/ 

NCMOD 

INTEGEF:*2 

0 


/DATA 

/ 

NI 

INTEGER*2 

292 


/DATA 

/ 

NPLTS 

INTEGER*2 

82 




NRDOF 

INTEGER*2 

6 


/DATA 

/ 

NRMOD 

INTEGERS 



/DATA 

/ 

NRQT 

INTEGER*2 

264 


/DATA 

/ 

NSTAT 

INTEGER* 2 

266 


/DATA 

/ 

NZ 

INTEGER*2 

254 


/DATA 

/ 

NZ1 

INTEGER*2 

46 




NZ9 

I NTEGER*2 

94 




REALM 

REAL 

32 


/DIMS 

/ 

RPM 

REAL 

48 


/DIMS 

/ 

RPM1 

REAL 

284 


/DATA 

/ 

RZ 

REAL 

200 


/DATA 

/ 

SC 

REAL 

276 


/DATA 

/ 

TH 

REAL 

272 


/DATA 

/ 

TITL 

CHAR* 1 

8 


/DATA 

/ 

TYTL 

CHAR*48 

152 


/DATA 

/ 

VECTX 

REAL 

28 


/DIMS 

/ 
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D Li nett 1 


VECTY 

REAL 

44 

/DIMS / 

W 

REAL 

0 

* 

X 

REAL 

122 


XASP 

REAL 

24 

/DIMS / 

XB1 

REAL 

230 

/DATA / 

XDISP 



EXTERNAL 

XR1 

REAL 

234 

/DATA / 

Y 

REAL 

106 


YB1 

REAL 

238 

/DATA / 

YD ISP 



EXTERNAL 

YT1 

REAL 

242 

/DATA / 
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376 *B0X . FOR ************************************************** ************** 

377 C 

378 C SUBROUTINE BOX 

379 C 

380 C** ***************** ****************************************** ********** 

381 C 

382 SUBROUTINE BOX < X 1 , Y 1 , X2, Y2> 

383 C 


384 

CALL 

PLOT ( X 1 , Y1 , 3) 

385 

CALL 

PLOT ( X2, Y1 , 2) 

386 

CALL 

PLOT ( X2, Y2, 2) 

387 

CALL 

PLOT (XI, Y2,2> 

388 

389 C 

CALL 

PLOT <X1,Y1,2) 

390 

END 



Name 

Type 

Offset 

P 

XI 

REAL 

0 

* 

X2 

REAL 

8 

* 

Y 1 

REAL 

4 

* 

Y2 

REAL 

12 

* 


391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 


♦ HEAD IN* ******************************************* ************* ******** 

C 

C SUBROUTINE HEADIN 

C 

c**** ******************************************************************* 

c 

SUBROUTINE HEADIN (HI GHT) 

C 

CHARACTER TITL ( 72, 2) , TYTL < 48 > 

C 

COMMON /DATA/NCMOD,NRMOD,NCDOF,NRDOF, TITL, TYTL, RZ <6> , IF'LTF, 

+ IPRT2, IPRT3, XB1 , XR1 , YB1 , YT1 , DX1 , DY1 , NZ <4) , NCASE, 

+ NROT, NSTAT, IFLG, IFL61 , TH, SC, IF'RT, KCRT, RPM1 , DRPM, 

+ NI, IPCNT, ISCNT 

C 

COMMON /DIM5/DIMX , DIMY, FNX, FNY, FACTX , FACTY, XASP, VECTX (4) , 

+ VECTY (4) 

C 

c DETERMINE LENGTH OF PLOT TITLE FOR CENTERING 

C 

L=4B . 

5 IF (L.NE.O.AND. <TYTL(L) .EG. ’ ’ . OR. TYTL <L ) . ED. 7 * ’ ) > THEN 
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D Line# 

413 

414 

415 

416 

417 
4 1 B 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 


1 


C 

C- 

c 


c 

c- 

c 

c 


L=L- 1 
GOTO 5 
END IF 
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PLOT HEADER 
CALL ASPECT (X ASP) 

CALL SYMBOL <2. 03, <8-L*HIGHT* . 872* X ASP > /2, HIGHT, TYTL, 90. ,L) 
CALL PLOT (2.07, <8-L*HIGHT*. 872* X ASP) /2, 3) 

CALL PLOT <2. 07, <S+L*HIGHT*. 872*XASP> /2, 2) 

CALL SYMBOL <2.30, 1 .58, . 120. TITL, 90. ,60) 

CALL SYMBOL <2. 52, 1.58, . 1 20, TITL ( 1 , 2) , 90. , 60) 

SET PLOT ORIGIN 

CALL PLOT (8. 90, 1 . 58, -3) 

END 


Name 

Type 

Offset 

P Class 


D1MX 

REAL 

0 

/DIMS 

/ 

DIMY 

REAL 

4 

/DIMS 

/ 

DRPM 

REAL 

288 

/DATA 

/ 

DX1 

REAL 

246 

/DATA 

/ 

DY1 

REAL 

250 

/DATA 

/ 

FACTX 

REAL 

16 

/DIMS 

/ 

FACTY 

REAL 

20 

/DIMS 

/ 

FNX 

REAL 

e 

/DIMS 

/ 

FNY 

REAL 

12 

/DIMS 

/ 

HIGHT 

REAL 

0 

* 


IFLG 

INTEGER*2 

268 

/DATA 

/ 

IFLG1 

INTEGERS 

270 

/DATA 

/ 

IPCNT 

I NTEGER*2 

294 

/DATA 

/ 

IPLTF 

INTEGER*2 

224 

/DATA 

/ 

IF'RT 

INTE6ER*2 

280 

/DATA 

/ 

IPRT2 

INTEGER*2 

226 

/DATA 

/ 

IPRT3 

INTEGER*2 

228 

/DATA 

/ 

ISCNT 

INTEGER*2 

296 

/DATA 

/ 

KCRT 

INTEGER*2 

282 

/DATA 

/ 

L 

INTEGER*2 

158 



NCASE 

INTEGER*2 

262 

/DATA 

/ 

NCDOF 

INTEGER*2 

4 

/DATA 

/ 

NCMOD 

INTEGER*2 

0 

/DATA 

/ 

N I 

INTEGERS 

292 

/DATA 

/ 

MRDOF 

INTEGER*2 

6 

/DATA 

/ 

NRMOD 

INTEGER* 2 

2 

/DATA 

/ 

NROT 

INTEGER*2 

264 

/DATA 

/ 

NSTAT 

INT£GER*2 

266 

/DATA 

/ 

NZ 

INTEGER*2 

254 

/DATA 

/ 

/ 

RPM1 

REAL 

284 

/DATA 

/ 

RZ 

REAL 

200 

/DATA 

/ 

SC 

REAL 

276 

/DATA 

/ 

TH 

REAL 

272 

/DATA 

/ 

TITL 

CHAR* 1 

8 

/DATA 

/ 

TYTL 

CHAR* 1 

152 

/DATA 

/ 

VECTX 

REAL 

28 

/DIMS 

/ 

VECTY 

REAL 

44 

/DIMS 

/ 

XASP 

REAL 

24 

/DIMS 

/ 
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D Line# 1 


XBl 

REAL 

230 

/DATA 

/ 

XR1 

REAL 

234 

/DATA 

/ 

YB1 

REAL 

238 

/DATA 

/ 

YT 1 

REAL 


/DATA 

/ 
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431 *AXES******************************************************************* 

432 C 

433 C SUBROUTINE AXES 

434 C 

435 C*************************** ************** ********************* ********* 

436 C 

437 SUBROUTINE AXES ( XT IT, LX , XB, XD, YTIT, LV , YB, YD) 

438 C 

439 CHARACTER XTIT (LX > , YT I T <LY) 

440 C 

441 COMMON /DIMS/DIMX, DIMY, FNX , FNY, FACTX , FACTY, XASP, VECTX (4) , 

442 + VECTY <4> 

443 C 

444 C DRAW X/Y AXES 

445 C 

446 CALL FACTOR (FACTX) 

447 CALL STAX IS ( . 09/FACT X , . 124 /FACTX, . 075/FACTX , . 07 /FACT X , 0) 

443 CALL AXIS<0.,0., XTIT, LX, FNX, 180. , XB, XD) 

449 C 

450 CALL FACTOR (FACTY) 

451 CALL STAX IS ( . 09/FACTY, . 124/FACTY , . 075/FACTY, . 07/FACTY, 0) 

452 CALL AXIS<0. ,0. , YTIT, -LY, FNY, 90. ,YB,YD> 

453 C 

454 END 


Name 

Type 

Offset 

P 

Cl ass 


D I MX 

REAL 

0 


/DIMS 

/ 

DIMY 

REAL 

4 


/DIMS 

/ 

FACTX 

REAL 

16 


/DIMS 

/ 

FACTY 

REAL 

20 


/DIMS 

/ 

FNX 

REAL 

8 


/DIMS 

/ 

FNY 

REAL 

12 


/DIMS 

/ 

LX 

INTEGER*!' 

4 

* 



LY 

INTEGER*! 

20 

* 



VECTX 

REAL 

28 


/DIMS 

/ 

VECTY 

REAL 

44 


/DIMS 

/ 

XASP 

REAL 

24 


/DIMS 

/ 

XB 

REAL 

8 

* 



XD 

REAL 

12 

* 



XTIT 

CFIAR* 1 

0 

* 



YB 

REAL 

24 

* 



YD 

REAL 

28 

* 



YT I T 

CHAR* 1 

16 

* 




455 *XDI SF'***** ******************************************************* ****** 

456 C 

457 C FUNCTION XDISP 

458 C 

459 C******* ******************** ************************************** ****** 

460 C 

461 FUNCTION XDISP (X) 
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D Line# 1 

462 C 

463 

464 C 

465 

466 C 

467 
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COMMON /D I MS/ D I MX , DIMY , FNX , FNY , FACTX , FACTY, XASP, VECTX (4) , VECTY (4) 
XDISF'= (X-VECTX <3> > /VECTX <4>*FACTX 
END 


Name 

Type 

Offset 

P Class 


DIMX 

REAL 

0 

/DIMS 

/ 

DIMY 

REAL 

4 

/DIMS 

/ 

FACTX 

REAL 

16 

/DIMS 

/ 

FACTY 

REAL 

20 

/DIMS 

/ 

FNX 

REAL 

8 

/DIMS 

/ 

FNY 

REAL 

12 

/DIMS 

/ 

VECTX 

REAL 

28 

/DIMS 

/ 

VECTY 

REAL 

44 

/DIMS 

/ 

X 

REAL 

0 

* 


XASP 

REAL 

24 

/DIMS 

/ 


468 * YDISP****************************************************************** 

469 C 

470 C FUNCTION YDISP 

471 C 

472 C*************************************************************** ******** 

473 C 

474 FUNCTION YDISP <Y) 

475 C 

476 COMMON /DIMS/DI MX , DIMY , FNX , FNY , FACTX , FACTY , XASP, VECTX (4) , VECTY (4) 

477 C 

478 YDISF= ( Y-VECTY (3) > /VECTY (4) *FACTY 

479 C 

480 END 


Name 

Type 

Offset 

P Class 


DIMX 

REAL 

0 

/DIMS 

/ 

DIMY 

REAL 

4 

/DIMS 

/ 

FACTX 

REAL 

16 

/DIMS 

/ 

FACTY 

REAL 

20 

/DIMS 

/ 

FNX 

REAL 

8 

/DIMS 

/ 

FNY 

REAL 

12 

/DIMS 

/ 

VECTX 

REAL 

28 

/DIMS 

/ 

VECTY 

REAL 

44 

/DIMS 

/ 

XASP 

REAL 

24 

/DIMS 

/ 

Y 

REAL 

0 

* 



Name Type Size Class 


ASPECT 

AXES 

AXIS 

BOX 

CRTF'LT 

DATA 

DIMS 


SUBROUTINE 
SUBROUTINE 
SUBROUTINE 
SUBROUTINE 
SUBROUTINE 
298 COMMON 
60 COMMON 
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D Line# 1 

FACTOR 

FNCF'LT 

HEAD IN 

LINE 

NEWF'EN 

PLOT 

F'LOTD 

SCALE 

STAXIS 

STBF'LT 

STDASH 

SYMBOL 

XDISP REAL 

YD ISP REAL 


Pass One 
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SUBROUTINE 
SUBROUTINE 
SUBROUTINE 
SUBROUTINE 
SUBROUTINE 
SUBROUTINE 
SUBROUTINE 
SUBROUTINE 
SUBROUTINE 

SUBROUTINE « 

SUBROUTINE 

SUBROUTINE 

FUNCTION 

FUNCTION 


No Errors Detected 
480 Source Lines 
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1 *SHPPLT. FOR*************************************************** ********** 

2 C 

3 C SUBROUTINE SHPPLT 

4 C 

5 C ROTORDYNAMICS INTERACTIVE MODE SHAPE PLOTTING 

6 C 

7 C*********************************************************************** 


8 

C 





9 

c 

RYR, 

RYI, 

RZR, RZI = ROTOT Y AND Z REAL AND IMAG 

10 

c 

CYR, 

CY I , 

CZR, CZI = CASING 

Y AND Z REAL AND IMAG 

11 

c 

PHIR, 

F’HIC 

= WHIRL DIRECTION FWD=FORWARD, REV=BACKWARD 

12 

c 

NSTAT 

= 

NO. OF STATIONS, .LE. 

10 

13 

c 

IFLG 

= 

CONTROL FLAG =1 

PLOTS ROTOR ONLY, 

14 

c 



=2 

PLOTS CASING ONLY, 

15 

c 



at 3 

PLOTS ROTOR, CASING, AND 

16 

c 




ROTOR-CASING 

17 

c 

IFLG1 

= 

UNUSED 


18 

c 





19 

c 

TH = 

VIEWING ANGLE (DEGREES) 


20 

c 

SC = 

SCALE FACTOR 


21 

c 





22 

c***** *■»#**•»*■****■***###*#*###*****#****■**■«•***#•«■**#*■*##*#**■»**#****#*•»■■»•** 

23 

c 





24 

*ST0RAGE:2 




25 

c 





26 


SUBROUTINE 

SHPPLT ( VECT , Z , AC , AR , I CASE , 

I ROT , LMOD , LCDOF , LRDOF , X ) 

27 

c 






28 CHARACTER TITL (72, 2) , PREC <2> *3, TYTL*48 

29 C 

30 LOGICAL PHIR (10) .PHICUO) 

31 C 

32 EXTERNAL CABS, XDISP, YDISP 

33 C 

34 EQUIVALENCE ( IPHIC, F'HIC) , ( IPHIR, PHIR) 

35 C 

36 DIMENSION AC(LCDOF, 1 ) , AR (LRDDF , 1 ) , ICASE (1 >, IROT(l) , VECT(2, 1) , 

37 + Z (2, 1 ) , X ( 1 ) 

38 C 

39 DIMENSION CYBAR<250) , CZBAR (250) , RYR ( 10) ,RYI (10) ,RZR(10) , RZI < 10) , 

40 1 RYBAR (250) ,RZBAR(250) , CYR (10) ,CYI (10) , CZR ( 10) , CZ I ( 10) , 

41 2 YCL ( 10) , YREL (250) , IPHIC (10) , IPHIR (10) , ZCL.(10) , WZ (2) , 

42 3 ZREL (250) 

43 C 

44 COMMON /DATA/NCMOD , NRMOD, NCDOF, NRDOF, TI TL, TYTL, RZ (6) , IF'LTF, 

45 + IPRT2, IPRT3,RZ1 (6) ,NZ(4) , NCASE, NROT, NSTAT, IFLG, 

46 + IFLG1 , TH, SC, IPRT , KCRT, RPM1 , DRPM, N1 , IF'CNT , ISCNT 

47 C 

48 COMMON /DIMS/DIMX , DIMY, FNX , FNY, FACT X , FACT Y , XASP, VECTX < 4) , 

49 + VECTY (4) 

50 C 

51 DATA PREC / ’ REV ’ , ’ FWD ’ / , 11,12/1,2/ 

52 C 

53 NMODES=NRMOD+NCMOD 

54 C 

55 C DEFINE DATA FOR MODE SHAPE PLOTTING 

56 C 

57 IF ( IPRT3 .EQ. O) THEN 

58 THETA=TH*. 01745 

59 DO 5 1=11, NSTAT 
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D Line# 
1 60 

1 61 

1 62 

63 

64 

65 
6 > 6 ) 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 
e? 

90 

91 

92 

93 

94 

95 

1 96 

1 97 

1 98 

2 99 

2 100 

101 
1 02 

103 

104 
1 105 
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YCL(I) = X(I) * COS (THETA) 

ZCL(.I) = X(I) * SIN (THETA) 

5 CONTINUE 

CALL STDASHU 0376, .0376) 

XL = X(NSTAT) - XU1) 

FACTX=8. 2 
FACTY=4..'6 

DIMX = FACTX-I2*SC*XL 
DIMY = FACTY-I2*SC*XL 

IF (ABS (SIN (THETA) ) . LT. D I MY/CABS (DIMX) ) THEN 
VECTX (3) =YCL (NSTAT) -SC*XL 
VECTX (4) =YCL (II > +SC*XL-V£CTX (3) 

VECTY (4) =VECTX (4) *FACTY/FACTX 
VECTY (3) = ( ZCL (NET AT ) + ZCL ( II) -VECTY ( 4 ) >/I2 
ELSE 

VECTY (3) =ZCL (NSTAT) -SC* XL 
VECTY (4) =ZCL ( 11 ) +SC*XL-VECTY (3) 

VECTX (4) =VECTY ( 4 ) *FACTX /FACTY 
VECTX (3) = ( YCL (NSTAT) +YCL < 1 1 ) -VECTX (4) ) / 12 
ENDIF 
END IF 
C 

c M AINROUTINE 

C 

10 READ (3) RF'M, JMODE, WZ, ( <Z < J, I > , J = I 1 , 12) , 1 = 11 ,NMODES) 

IF < JMODE. LT. 0) RETURN 
WRITE (6, ’ ( 1H1 ) •' ) 

I F ( RF'M . NE . RPMLST ) THEN 
WRITE (6, 8001) 

WRITE (6. 8000) TITL, RPM 
RF'MLST=RPM 
ENDIF 
C 

C BACKTRANSFORM THE ROTOR DOFS 

C 

DO 15 I = Il.NROT 
VECTU1 , I >=6. 0 
VECTU2, I) =0.0 
DO 15 J=I 1 , NRMOD 

VECT (11,1) = VECT (11,1) + ARUROT(I) ,J)*Z(I1,J) 

15 VECT (12, I ) = VECT (12, I ) + AR ( IROT ( I > , J ) *Z (1 2, J ) 

C 

C BACKTRANSFORM THE CASING DOFS 

C 

DO 20 I = II, NCASE 
VECT (II, NROT+ 1 > =0. 0 
VECT (12, NROT+ I ) =0.0 
DO 20 J = II, NCMOD 

VECT (II, NROT + 1 ) = VECT (II, NROT+I ) + AC ( I CASE (I) ,J)*Z(IT, NRMOD+J ) 
20 VECT (12, NROT+I ) = VECT (12, NROT+I ) + AC ( I CASE (I) ,J)*Z ( 12, NRMOD+J ) 
C 


111 XE = WZ ( 12) * 9.54929 

112 C 

113 C WRITE MODE SHAPE 

114 C 

115 IF(IPRT.EB.O) THEN 

116 C NORMALIZE VECTOR WITH RESPECT TO ALL DOF’S 

117 PMAX = 0.0 

118 DO 25 I = II, NROT +NCASE 
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25 PMAX=AMAX1 (PMAX , CABS (VECT <11, I) ) > 

WR I TE ( 6 , 2000 ) JM0DE,WZ,XE 

IF <NR0T .NE. 0) THEN 
WRITE <6, 2500) 

WRITE (6, 4010) 

WRITE <6,2150) (IROT(I) , CABS (VECT (1 1 , I) ) /PMAX , ATAN2 < VECT (1 2, I ) , 

+ VECT <11, I) > , (VECT < J, I) /PMAX, J = I1, 12) , 1 = 11 , NROT ) 

END IF 

IF (NCASE .NE. 0) THEN 
WRITE <6, 2600) 

WRITE (6, 4010) 

WRITE (6,2150) < ICASE < I ) , CABS < VECT < 1 1 , NROT+I > ) /PMAX . ATAN2 < VECT ( 12 

+ , NROT+I > , VECT (II, NROT+I > ) , (VECT <K, NROT+ I > /PMAX , 

+ K=I1, 12) , 1=11, NCASE) 

END IF 

ENDIF 


PLOT MODE SHAPE 


IF ( IPRT3. NE. 0) GOTO 10 


NORMALIZE WITH RESPECT TO STATION DOF'S ONLY 
PMAX =0.0 


DO 30 1=11, NSTAT 

PMAX=AMAX 1 (PMAX , VECT < II, 1*12-11) , VECT (II, 1*12) , 

+ VECT <11, NR0T+I*I2-I 1 ) , VECT < 1 1 ,NR0T+i*I2> > 

30 PMAX=AMAX1 (PMAX , VECT ( 12, 1*12-11) , VECT (12, 1*12) , 

+ VECT (12, NROT+ I* 12— I 1 ) . VECT (12, NROT+I *12) ) 


DO 35 1=11, NSTAT 
RYR < I > = VECT (II, 1*12-11) /PMAX 
RYI(I) = VECT (12, 1*12-1 1 > /PMAX 
RZR(I) = VECT (11, 1*12) /PMAX 
RZI(I) = VECT (12, 1*12) /PMAX 
CYR(I) = VECT <11, NROT+I*I 2- 1 1 ) /PMAX 
CY 1(1) = VECT < 12, NR0T+I*I2-I1> /PMAX 
CZR(I) = VECT (II, NROT+I *12) /PMAX 
CZI(I) = VECT (12, NROT+I *1 2) /PMAX 
CONTINUE 


* XL * SC 

* XL * SC 

* XL * SC 

* XL * SC 

* XL * SC 

* XL * SC 

* XL * SC 

* XL * SC 


163 WRITE (6, 95) RPM,JMODE,XE 

164 C 

165 C ROTOR GROUP MODAL DATA 

166 C 

167 IF < IFLG. NE. 12) THEN 

168 WRITE(6, 1160) 

169 WRITE<6, 1159) 

170 DO 40 I = II, NSTAT 

1 171 PHIR(I) = RYI ( I ) *RZR ( I ) - RYR ( I ) *RZ I ( I > .GE. O.ODO 

1 172 40 WRITE <6, 1161) I , RYR ( I ) , RYI ( I > , RZR < I ) , RZ I ( I ) , PREC ( IPHIR ( I ) + 1 1 ) 

173 ENDIF 

174 C 

175 C CASING GROUP MODAL DATA 

176 C 

177 IF < IFLG .NE. ID THEN 
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WRITE (6, 1 190) 

WRITE <6, 1159) 

DO 50 I = II, NSTAT 

PHIC<I) = CYI <I)*CZR<I> - CYR ( I ) *CZI < I ) .BE. 0. 0D0 
50 WRITE <6, 1 161) I , CYR ( I ) , CYI < I > , CZR ( I ) ,CZI (I) , PREC ( IPHIC ( I ) + 1 1 ) 

END IF 

COMPUTE ORBIT DATA FOR PLOTTING 

DO 60 I = II, NSTAT 

DO 60 J = 11,25 

N = J + 25# ( l-i i ) 

PRECS = . 2618# ( J-I 1 ) 

IF (IFLG. NE. 12) THEN 

Y 1 = R YR ( I > *COS ( PRECS ) - RYI (I > *S1N (PRECS) 

Z1 = RZR ( I ) *COS (PRECS) - RZ I (I ) *SIN (PRECS ) 

YREL(N) = Y 1 
ZREL(N) = Z1 
RYBAR(N) = YCL (I) + Y1 

RZBAR(N) = ZCL(I) + Z1 

END IF 

IFUFLG.NE.il) THEN 

Y 1 = CYRU)*COS<PRECS) - CYI ( I ) #SIN (PRECS) 

Z1 = CZR (I)*COS (PRECS) - CZ I ( I ) #SIN (PRECS) 

CYBAR(N) = YCL(I) + Y1 

CZBAR(N) = ZCLU) + Z1 

END IF 

IF ( IFLG. EQ. 3) THEN 

YREL(N) (YREL(N) - Yl) + YCL ( I ) 

ZREL(N) = (ZREL(N) - Zl) + ZCLU) 

END IF 

60 CONTINUE 

PLOT MODE SHAPES 

IF (IFLG. NE. 12) THEN 

TYTL=’ Rotor Group Mode Shape’ 

CALL SPLOT (PHIR (11), YCL, ZCL, RYBAR, RZBAR, RPM, XE) 

CALL PLOT (0. , 0. , -999) 

END IF 

IF (IFLG .NE. ID THEN 

TYTL=’Casing Group Mode Shape’ 

CALL SPLOT (PH IC (II ) , YCL, ZCL, CYBAR, CZBAR, RPM, XE) 

CALL PLOT (O. ,0. , -999) 

END IF 

IF ( IFLG. EQ. 3 ) THEN 

TYTL=’ Rel ati ve Deflection Mode Shape’ 

CALL SPLOT (12, YCL, ZCL, YREL, Z REL, RPM, XE) 

CALL PLOT (0. ,0. ,-999) 

END IF 

GOTO 10 

FORMAT STATEMENTS 


235 95 FORMAT (///,5X, ’RPM=’ , F12. 3, 5X, ' MODE=’ , 13, 5X, ’ CPM=’ , F12. 3) 

236 1159 FORMAT (5X, ’ STATION’ , 5X ,’ YR’ , 12X,’YI’,12X,’ZR’,12X,’ZI’,6X, 
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237 + 'PRECESSION'/) 

238 1160 FORMAT (///, 10 X, ’*** ROTOR GROUP MODE SHAPE PLOTTING DATA ***’,//) 

239 1161 FORMAT (7X , 12, IX, 1P4E14.5,4X,A> 

240 1190 FORMAT <///, 10X, ' *** CASING GROUP MODE SHAPE PLOTTING DATA ***',//> 

241 2000 FORMAT <///5X, 'MODE' , 13, 4X, ’ REAL=’ , 1PE12.5,4X, ' IMAG=' , 

242 1 E 1 2. 5 , 4X , ’ CPM =',0PF10.3> 

243 2150 FORMATdOX, 13, IX, 1P4E15.5) 

244 2500 FORMAT <///10X, ’ #«■* ROTOR GROUP MODAL DISPLACEMENT DATA ***’//) 

245 2600 FORMAT <///10X, ’*** CASING GROUP MODAL DISPLACEMENT DATA ***’//> 

246 4010 FORMAT <1 OX, 'DOF' , 6X, ’ AMPLITUDE’ ,5X, 'PHASE ANG. ’ , 8X , ’ REAL’ , 9X , 

247 1 'IMAGINARY'/) 

248 8000 FORMAT </5X, 72A//5X, 72A///5X, 'ROTOR SPIN SPEED =',F8.0,' RPM' ) 

249 8001 FORMAT <//5X, ’ *** ROTORDYNAMICS MODE SHAPE PLOTTING PROGRAM ***’//) 

250 C 

251 END 


Name 

Type 

Offset 

P 

Cl ass 


ABS 




INTRINSIC 

AC 

REAL 

8 

* 



AMAX1 




INTRINSIC 

AR 

REAL 

12 

* 



ATAN2 




INTRINSIC 

CABS 




EXTERNAL 

COS 




INTRINSIC 

CYBAR 

REAL 

4296 




CYI 

REAL 

6416 




CYR 

REAL 

6376 




CZBAR 

REAL 

5296 




CZI 

REAL 

6336 




CZR 

REAL 

6296 




DIMX 

REAL 

0 


/DIMS 

/ 

DIMY 

REAL 

4 


/DIMS 

/ 

DRPM 

REAL 

288 


/DATA 

/ 

FACTX 

REAL 

16 


/DIMS 

/ 

FACTY 

REAL 

20 


/DIMS 

/ 

FNX 

REAL 

8 


/DIMS 

/ 

FNY 

REAL 

12 


/DIMS 

/ 

I 

INTEGER*2 

6466 




I 1 

INTEGER*2 

6456 




12 

INTEGERS 

6458 




I CASE 

INTEGER*2 

16 

* 



IFLG 

INTEGER*2 

268 


/DATA 

/ 

IFLG1 

INTEGER*2 

270 


/DATA 

/ 

IPCNT 

INTEGER*2 

294 


/DATA 

/ 

IPHIC 

INTEGER*2 

4276 




IPHIR 

INTEGER*2 

4256 




IPLTF 

INTEGER*2 

224 


/DATA 

/ 

IPRT 

INTEGER*2 

280 


/DATA 

/ 

TPOT? 

INTEGEF:*2 

226 


/DATA 

/ 

IF'RT'3 

INTEGER*2 

228 


/DATA 

/ 

I ROT 

INTEGER*2 

20 

* 



ISCNT 

INTEGER*2 

296 


/DATA 

/ 

J 

INTEGER*2 

6488 




JMODE 

INTEGER*2 

6486 




K 

INTEGER*2 

6548 




KCRT 

INTEGER*2 

282 


/DATA 

/ 

LCDOF 

1NTEGER*2 

28 

* 



LMOD 

INTEGERS 

24 

# 
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LRDOF 

1 NTEGER*2 

32 

* 



N 

INTEGER*2 

6580 




NCASE 

1 NTEGER*2 

262 


/DATA 

/ 

NCDOF 

INTEGER*2 

4 


/DATA 

/ 

NCMOD 

INTEGER*2 

0 


/DATA 

/ 

NI 

INTEGER*2 

292 


/DATA 

/ 

NMODES 

1NTEGER*2 

6460 




NRDC1F 

INTEGER*2 

6 


/DATA 

/ 

NRMOD 

INTEGER*2 



/DATA 

/ 

NR'OT 

INTEGER*2 

264 


/DATA 

/ 

NSTAT 

INTEGER* 2 

266 


/DATA 

/ 

NZ 

INTEGER*2 

254 


/DATA 

/ 

RHIC 

L0GICAL*2 

4276 




PHIR 

LOG I CAL* 2 

4256 




PMAX 

REAL 

6526 




PREC 

CHAR*3 

2090 




F'RECS 

REAL 

6582 


- 


RF'M 

REAL 

6482 




RF'Ml 

REAL 

284 


/DATA 

/ 

RPMLST 

REAL 

6494 




RYBAR 

REAL 

3256 




RYI 

REAL 

3216 




RYR 

REAL 

2096 




R2 

REAL 

200 


/DATA 

/ 

RZ1 

REAL 

230 


/DATA 

/ 

RZBAR 

REAL 

2216 




RZI 

REAL 

2176 




RZR 

REAL 

2136 




SC 

REAL 

276 


/DATA 

/ 

SIN 




INTRINSIC 

TH 

REAL 

272 


/DATA 

/ 

THETA 

REAL 

6462 




TITL 

CHAR* 1 

8 


/DATA 

/ 

TYTL 

CHAR*4B 

152 


/DATA 

/ 

VECT 

REAL 

0 

* 



VECTX 

REAL 

28 


/DIMS 

/ 

VECTY 

REAL 

44 


/DIMS 

/ 

WZ 

REAL 

2082 




X 

REAL 

36 

* 



XASP 

REAL 

24 


/DIMS 

/ 

XDISP 




EXTERNAL 

XE 

REAL 

6522 




XL 

REAL 

6474 




Y 1 

REAL 

6586 




YCL 

REAL 

2042 




YD ISP 




EXTERNAL 

YREL 

REAL 

1042 




2 

REAL 

4 

# 



Z1 

REAL 

6590 




ZCL 

REAL 

2 




7 pEL 

REAL 

42 





252 *SF'L0I ******************************************************** ********** 

253 C 

254 C SUBROUTINE SPLOT 

255 C 

256 C *********************************************************************** 

257 C 
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SUBROUTINE SPLOT (NPHI, YCL, ZCL, RYBAR, RZBAR, RPM, XE) 

DIMENSION YCL < 1 ) , ZCL ( 1 > , RYBAR < 1 ) , RZBAR < 1 ) , NPHI <1) 

CHARACTER TITL<72,2) , TYTL (48) , MESSAG (5) #31 , M (31 , 2) ,M1*10,M2*10 

EQUIVALENCE (MESSAG, M> , <M (17, 1 > , Ml ) , <M (17, 2) , M2) 


EXTERNAL XDISP.YDISP 


COMMON 


/DATA/NCMQD, NRMDD, NCDOF, NRDOF, TITL, TYTL, RZ (6) , IPLTF, 
IPRT2, IPRT3, RZ1 (6) ,NZ (4) , NCASE, NROT, NSTAT, IFLG, 
IFLG1, TH, SC, IPRT, KCRT, RPM1 , DRPM, NI , IPCNT, ISCNT 


COMMON /D IMS/DIMX , DIMY, FNX , FNY, FACTX , FACTY, XASP, VECTX (4) , 

+ VECTY < 4 ) 


DATA MESSAG/’ Spin Speed RPM’ , 

+ ’Nat Frequency CF'M’ , 

+ ’ ORBIT - BACKWARD PRECESSION ’ , 

+ ’ ORBIT - FORWARD PRECESSION ’ , 

+ ’ ’ / 

DATA HIGHT / . 220/ 

-DETERMINE LENGTH OF PLOT TITLE FOR CENTERING 
L=48 

IF (L. NE. 0. AND. TYTL (L) . EQ. ’ ’ > THEN 
L=L-1 
GOTO 5 

END IF ^ 

-PLOT HEADER 
CALL ASPECT (XASP) 

RAT I 0=. 872* XASP 

CALL SYMBOL ( < 1 1-L*HIGHT*RATI0) /2, 6. 74, HIGHT, TYTL, 0. ,L) 

CALL PLOT ( ( 1 1 -L*HI GHT *R AT I 0 ) /2, 6. 70,3) 

CALL PLOT < < 1 1+L*HIGHT*RATI0> /2, 6. 70, 2) 

CALL SYMBOL ( ( 1 1-L*HIGHT*RATI0) 72,6.52, . 13, TITL, 0. ,60) 

CALL SYMBOL ( ( 1 1 -L*HIGHT*RAT 10) /2, 6 . 34, . 13,TITL(1,2) ,0. ,60) 

WRITE (Ml, 9000) RPM 

CALL SYMBOL < 1 .93,5.48,. 1 19, MESSAG ( 1 ) ,0. , 31 ) 

WRITE (M2, 9000) XE 

CALL SYMBOL ( 1 . 93, 5. 24, . 1 19, MESSAG (2) ,0. ,31) 

-DRAW AXES 

CALL PL0T<9. ,2.2,3) 

CALL SYMBOL (9. 3, 2. 2, . 1,2,270. , -2) 

CALL SYMBOL (9. 36, 2. 18, . 150, ’y’,0. , 1) 

CALL PLOT <9. ,2.2,3) 

CALL SYMBOL (9. ,2.5, . 1,2,0. , -2) 

CALL SYMBOL (8. 98, 2. 57, . 150, ’ z ’ , O. , 1 ) 

THETA=TH*. 01745 
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317 CALL PLOT <9. ,2.2,3) 

318 CALL SYMBOL <9. +.3*C0S (THETA) , 2. 2+. 3*SIN (THETA) , . l,2,TH-90. ,-2> 

319 CALL SYMBOL < 9. +.44*C0S (THETA) ,2.2+. 44*SIN (THETA) , . 150, ,0. , 1) 

320 C 

321 C SET PLOT ORIGIN 

322 C 

323 CALL PLOT (1.4,1., —3) 

324 C 

325 C WRITE STATION NUMBERS 

326 C 

327 DO 70 I = 1 , NSTAT 

1 328 WRITE (Ml , 9001 ) I 

1 329 CALL SYMBOL (XDISP ( YCL ( I ) ) — . 04, YD ISP ( ZCL (I))-. 16, .12, Ml, 0. ,2) 

1 330 70 CONTINUE 

331 C 

332 C PLOT THE MODE SHAFE 

333 C 

334 CALL PLOT ( XDISP" (RYBAR) , YDI SP (RZBAR) , 3) 

335 DO 75 1=2, 25+NSTAT 

1 336 CALL PLOT (XDISP (RYBAR ( 1 ) ) , YDI SP (RZBAR ( I ) ) , 2) 

1 337 75 CONTINUE 

338 C 

339 C PLOT THE PRECESSION ARROWS 

340 C 

341 IP (NPHI (1) . NE . 2 ) THEN 

' 342 K=0 

343 CALL NEWPEN (2) 

344 DO BO 1=1, NSTAT 

1 345 J= ( 1-1 ) *25+13 

1 346 X=RYBAR(J) 

1 347 XD=RYBAR ( J+i ) -X 

1 343 Y=RZBAR(J> 

1 349 YD=RZBAR < J + 1 ) — Y 

1 350 IF (XD.NE.O. .OR. YD.NE.O. ) THEN 

1 351 THETA=AM0D(ATAN2(-XD, YD>/. 01745+360. ,360. > 

1 352 CALL SYMBOL(XDISP(X) ,YDISP(Y> , .090, 2, THETA, -1) 

1 353 IF(K.EO.O) K=I 

1 354 END IF 

1 355 80 CONTINUE 

356 CALL NEWPEN ( 1 ) 

357 IF (K. NE. 0) THEN 

358 WRITE (Ml, ’ (8HSTATI0N .12)’) K 

359 CALL SYMBOL (3. 73.. 35, . 119, Ml, 0. , 10) 

360 CALL SYMBOL (999. , 999 .,.119, MESS AG (NPHI (K> +3) ,0. , 31 ) 

361 END IF 

362 END IF 

363 C 

364 CALL PLOTD ( XDISP (YCL) , YDI SP ( ZCL) , 3) 

365 DO 85 I =2, NSTAT 

1 366 CALL PLOTD (XDISP (YCL ( I ) ) , YD ISP ( ZCL ( I ) ) , 2) 

1 367 85 CONTINUE 

368 C 

369 C FORMAT 

370 C 

371 9000 FORMAT (FI 0.3) 

372 9001 FORMAT (12) 

373 END 
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Name 

Type 

Offset 

P 

Cl ass 


AMOD 




INTRINSIC 

ATAN2 




INTRINSIC 

COS 




INTRINSIC 

DIMX 

REAL 

0 


/DIMS 

/ 

DIMY 

REAL 

4 


/DIMS 

/ 

DR PM 

REAL 

288 


/DATA 

/ 

FACTX 

REAL 

IE 


/DIMS 

/ 

FACTY 

REAL 

20 


/DIMS 

/ 

FNX 

REAL 

8 


/DIMS 

/ 

FNY 

REAL 

12 


/DIMS 

/ 

HIGHT 

REAL 

7450 




I 

INTEGER*2 

7464 




IFLG 

INTEGER*2 

268 


/DATA 

/ 

IFLG1 

INTEGER*2 

270 


/DATA 

/ 

IF'CNT 

INTEGER*2 

294 


/DATA 

/ 

-IPLTF 

INTEGER*2 

224 


/DATA 

/ 

IPRT 

INTEGER*2 

280 


/DATA 

/ 

IPRT2 

INT£GER*2 

226 


/DATA 

/ 

IPRT3 

INTEGER-* 2 

228 


/DATA 

/ 

ISCNT 

INTEGER*2 

296 


/DATA 

/ 

J 

INTEGER*2 

7510 




K 

INTEGER*2 

7502 




KCRT 

INTEGER*2 

282 


/DATA 

/ 

L 

INTEGER*2 

7454 




M 

CHAR* 1 

7294 




Ml 

CHAR* 10 

7310 




M2 

CHAR* 10 

7341 




MESSAG 

CHAR*3 1 

7294 




NCASE 

INTEGER*2 

262 


/DATA 

/ 

NCDOF 

1NTEGER*2 

4 


/DATA 

/ 

NCMOD 

INTEGER*2 

0 


/DATA 

/ 

N I 

INTEGER*2 

292 


/DATA 

/ 

NPHI 

INTEGER*2 

0 

* 



NRDOF 

INTEGER*2 

6 


/DATA 

/ 

NRMOD 

INTEGER*2 

2 


/DATA 

/ 

NROT 

INTEGER*2 

264 


/DATA 

/ 

NSTAT 

INTEGER*2 

266 


/DATA 

/ 

NZ 

INTEGER*2 

254 


/DATA 

/ 

RATIO 

REAL 

7456 




RF'M 

REAL 

20 

* 



RF'M 1 

REAL 

284 


/DATA 

/ 

RYBAR 

REAL 

12 

* 



R2 

REAL 

200 


/DATA 

/ 

R21 

REAL 

230 


/DATA 

/ 

R2BAR 

REAL 

16 

* 



SC 

REAL 

276 


/DATA 

/ 

SIN 




INTRINSIC 

TH 

REAL 

272 


/DATA 

/ 

THETA 

REAL 

7460 




TITL 

CHAR* 1 

8 


/DATA 

/ 

TYTL 

CHAR*1 

152 


/DATA 

/ 

VECTX 

REAL 

28 


/DIMS 

/ 

VECTY 

REAL 

44 


/DIMS 

/ 

X 

REAL 

7512 




XASP 

REAL 

24 


/DIMS 

/ 

XD 

REAL 

7516 
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D Line# 1 
XDISF' 

XE REAL 

Y REAL 

YCL REAL 

YD REAL 

YD I SR 

ZCL REAL 


Page 10 
- 08- 13-84 

19:37:08 

Microsoft F0RTRAN77 V3. 13 8/05/83 

EXTERNAL 

24 * 

7520 
4 * 

7524 

EXTERNAL 

8 * 


374 *CABS. FOR*************************************************************** 


375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 


C 

C REAL FUNCTION CABS 

C 

C*********************************************************************** 

c 

REAL FUNCTION CABS(Z) 

C 

REAL*4 Z < 1 ) 

C 

CABS=DSQRT < DBLE (Z(1)*Z<1)+Z <2>*Z (2) ) ) 

C 

END 


Name 

Type 

Offset 

P Class 

DBLE 



INTRINSIC 

DSGRT 



INTRINSIC 

Z 

REAL 

0 

* 


Name 

Type 

Size 

Cl ass 

ASPECT 



SUBROUTINE 

CABS 

REAL- 


FUNCTION 

DATA 


298 

COMMON 

DIMS 


60 

COMMON 

NEWPEN 



SUBROUTINE 

PLOT 



SUBROUTINE 

PLOTD 



SUBROUTINE 

SHPPLT 



SUBROUTINE 

SPLOT 



SUBROUTINE 

STDASH 



SUBROUTINE 

SYMBOL 



SUBROUTINE 

XDISP 

REAL 


FUNCTION 

YD ISP 

REAL 


FUNCTION 


Pass One No Errors Detected 
386 Source Lines 
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D Line# 1 7 Microso-ft F0RTRAN77 V3. 13 8/05/83 

1 *L0GINI T******************* ********************************************* 

2 C 

3 C PROGRAM LQGINIT 

4 C 

5 C ROTOR DYNAMICS ANALYSIS PROGRAM 

6 C 

7 C*************************** ******************************* ************* 

8 C 

9 ^STORAGE: 2 

10 C 

11 PROGRAM LOGINIT 

12 C 

13 CHARACTER BANNR (3) *31 , Cl , INPUT*40, CULINE (80) 

14 C 

15 INTEGER NDATE (3> , NT I ME ( 4) , IULINE (20) 

16 C 

17 EQUIVALENCE (Cl , INPUT) , (CULINE (41 ), IULINE) 

18 C 

19 DATA BANNR /’PROGRAM LOGINIT’, 

20 + ’ROTORDYNAMICS ANALYSIS’, 

21 + ’JUNE 1984’/ 

22 DATA CULINE /40*’_’,40*’ ’/ , IULINE /20*#080B/ 

23 C 

24 C SET UP SCREEN 

25 C 

26 CALL QCLEAR (1,7) 

27 CALL QBQRD(1> 

28 CALL QCSI Z (0,0) 

29 CALL Q.CMOV (0,24) 

30 C 

31 C PROGRAM BANNER 

32 C 

33 CALL QDATE( NDATE (3) , NDATE, NDATE (2> ) 

34 CALL QTIME (NTIME, NT IME (2) ,NTIME(3) ,NTIME(4> ) 

35 NTIME (3) = NTIME(3) + NTIME (4) / 100. +0.5 

36 C 

37 WRITE (*,8004) BANNR 

38 WRITE (*, 8005) (NDATE ( I > , 1= 1 , 3) , (NTIME ( I ) , 1=1 , 3) 

39 C 

40 C VERIFY THAT LOG FILE IS TO BE UPDATED (DESTROYED) 

41 C 

42 CALL QCS I Z ( 0 , 7 ) 

43 WR I TE ( * , 9000 ) ’ *** THIS PROGRAM INITIALIZED (ERASES AND ’, 

44 + ’RECREATES) THE RSTAB USAGE LOG ***’ 

45 WRITE (*,8001) ’DO YOU WANT TO ERASE AND RECREATE THE RSTAB 

46 + ’USAGE LOG CY/ND? ’ 

47 READ (*,9000) INPUT 

48 IF ( INFUT. EQ. ’ ’) GOTO 1000 

49 5 IF (Cl . EQ. ’ ’ ) THEN 

50 READ ( INPUT, ’ ( 1 X . A) ’ ) I NFUT 

51 GOTO 5 

52 ENDIF 

53 IF (Cl.NE. ’ Y’ ) GOTO 1000 

54 C 

55 C GET USER’S NAME 

56 C 

57 WRITE (*,’ (//2X,B1A\> ’ ) ’ENTER YOUR NAME: ’.CULINE 

58 READ (*,9000) INFUT 

59 IF ( INPUT. EQ. ’ ’) GOTO 1000 
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D Line# 
60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
B2 

83 

84 

85 

86 

87 

88 

89 

90 

91 


1 

C 

C- 

c 


c 

c 

c 


c 

c- 

c 


Microso-f t 


FORTRAN77 


-CREATE LOG FILE 

0PEN(7,FILE=’L0G.SAV’ , ST ATUS= ’ NEW ’ , ACCESS=’ DIRECT' , 
+ FORM=’ UNFORMATTED’ ,RECL=242) 

WRITE <7, REC=1 > 1 , NDATE , NT I ME , INPUT 

CLOSE (7) 

-NORMAL TERMINATION 

WRITE (*,9001) ’UPDATE COMPLETE’ 

GOTO 2000 

-NO UPDATE 


1000 WRITE (# , 9001 ) ’NO UPDATE MADE’ 
C 

C TERMINATION 

C 


Page 2 
0B-13-B4 
19:46:41 

V3. 13 8/05/83 


2000 CALL QCSI Z <0, 0) 

C 

C FORMAT STATEMENTS 

C 

8001 FORMAT (//2X,2A, 1X\> 

8004 FORMAT ( 1H1 , 5 ( / ) ,2X,78( 1H*> , 3 < /7H ***#*, 68X, 5H*****/7H **#**, 18X, 

+ A, 19X, 5H*****> /7H *♦***, 68X, 5H*****/2X, 78 ( 1H*> ) 

8005 FORMAT (2X, 5HDATE: , 13, 1H/, 12, 1H/, 14, 42 X, 1 1HBEGIN TIME: , 13, 

+ 2 ( 1H: , 12) , 6 ( / ) ) 

9000 FORMAT (72A) 

9001 FORMAT (//2X, A/) 

C 

END 


Name 

Type 

0-f Fset 

BANNR 

CHAR*31 

2 

Cl 

CHAR*1 

95 

CULINE 

CHAR*1 

150 

I 

INTEGER*2 

230 

I NPUT 

CHAR*40 

95 

IULINE 

INTEGER*2 

190 

NDATE 

INTEGER*2 

136 

NT I ME 

INTEGER*2 

142 

Name 

Type 

Si ze 


LOG INI 

SBORD 

QCLF.AR 

OCMClV 

QCSI Z 

QDATE 

QTIME 


PROGRAM 

SUBROUTINE 

SUBROUTINE 

SUBROUTINE 

SUBROUTINE 

SUBROUTINE 

SUBROUTINE 


Pass One 


No Errors Detected 
91 Source Lines 
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PROGRAM LISTINGS 


^STORAGE : 2 

SUBROUTINE CMASS <F'DATA1 . CM , SQRTM , SQRTMI ) 

COMPUTES CM3 TRACE WITH ALTERNATE M. I ELEMENTS. 
COMPUTES M**l/2 (SGRTM) AND INVERSE (SQRTMI). 
DIMENSION CM (16) ,SQRTM(16> .SQRTMI (16) .PDATA1 (20) 
EL=PDA'f A 1 (5) /6. 

G=386. 

CM ( 1 >=PDATA1 ( lO) /6. /G 
CM (3) =CM ( 1 > *2 . 

CM (5) “CM (3) 

CM < 7 ) =CM ( 1 ! 

CM (2) “CM (1 >*EL**2/3. 

CM ( 4 ) =CM ( 2 ) *2. 

CM ( 6 ) =CM ( 4 ) 

CM (Q> =CM (2) 

CM(9)=PDA7A1 ( 15) /6. /G 
CM ( 1 1 ) =CM (9) *2. +PDATA1 (6) /G 
CM (13) =CM <9) *2. 

CM (15) =CM (9 ) +PDATA1 (8) /G 
CM ( 1 0) -CM <9 > *EL**2/3. 

CM (12) =CM (10) *2. ♦PDATA1 (6>/G*PDATAl (7>**2/2. 

CM (14) =CM ( 10) *2. 

CM (16) =CM (10) +PDATA1 <B)/G*PDATA1 (9) **2/2. 

WRITE (6, 100) 

100 FORMAT ( OPLANAR MASS TRACE') 

WRITE (6 , 110) (CM(I) ,1=1,16) 

110 FORMAT (1P6E12. 4) 

DO 10 1=1,16 
SQRTM ( I ) =SQRI (CM ( I ) ) 

10 SQRTMI (I)=1./SQRTM(I) 

END 
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^STORAGE : 2 

SUBROUTINE JACOBI ( CKQB , T , E I GEN ) 

EIGENVALUES AND EIGENVECTORS BY THE JACOBI METHOD 
IMPLICIT REAL *8 (A-H, O-Z) 

DIMENSION A < 16 , 16) , T(16,16>, AIK(16), EIGENI16) 

1 , CKQ8 (16,16) 

WRITE (*,205) 

1 DO 2 1=1 , 16 
DO 2 J = 1 , 16 
T ( I , J> =0. O 

2 A ( I , J ) =CKQS ( I , J ) 

N= 1 6 
ITMAX=5D 
EPS 1 = 1. D- 12 
EPS2= 1 . D- 12 
EPS3=1 . D-6 
NM 1 =N- 1 
SIGMA 1=0. 0 
0FFDSQ=0..0 
DO 5 1=1 ,N 

S I GMA 1 =S I GMA 1 +A ( I , I > **2 
T ( I , I ) = 1 . D+0 
IP1=1+I 

IF(I.GE.N) GOTO 6 
DO 5 J= IP 1 , N 

5 OFFDSQ=OFFDSQ+A< I , J>**2 

6 S=2.*0FFDSQ+SIGMA1 
DO 26 I TER= 1 , ITMAX 
DO 20 1=1, NM1 
IP1=I+1 
DO 20 J=IP1,N 
Q=DABS < A ( I , I ) -A ( J , J ) ) 

IF(Q.LE.EPSl) GOTO 9 
IF (DABS (A(I,J)).LE. EPS2) GOTO 20 
P=2 . D+0*A ( I , J > *Q/ ( A ( I , I ) -A < J , J > > 

SPG=DSQRT (p*F'+0*0) 

CSA=DSGRT ( ( 1 . D+O+Q/SPQ) /2. D+0) 

SNA=F'/ (2. D+0*CSA*SPQ) 

GOTO 10 

9 CSA=1 . D+O/DSORT (2. D+0) 

SNA=CSA 
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N N 


10 CONTINUE 

DO 11 K= 1 , N 
HOLDKI =T (K , I > 

T ( K , I ) =HOLDK I *CSA+T ( K , J ) *SNA 

1 1 T (K, J > =HOLDK I *SNA-T (K , J > *CSA 
DO 16 K= I , N 

IF(K.GT.J) GOTO 15 
A I K ( K ) =A ( I , K ) 

A ( I , K ) = CSA*A I K ( K > +SNA* A ( K , J ) 

IF(K.NE.J) GOTO 14 
A ( J , K) =SNA* A I K ( K > -CSA* A ( J , K ) 

14 GOTO 16 

15 HOLD I K=A ( I , K > 

A ( I , K ) =CSA*HOLD I K+SNA*A ( J , K ) 

A(J,K)=SNA*HOLDIK-CSA*A(J ,K> 

16 CONTINUE 

A I K ( J > = SNA* A I K < I ) — CSA*A I K ( J ) 

DO 1 9 K= 1 , J 

IF(K.LE.I) GOTO 18 

A (K , J ) =SNA*A IK <K) -CSA*A (K , J ) 

GOTO 19 

18 HOLDK I =A (K , I > 

A < K , I ) =CSA*HOLDK I +SNA*A ( K , J > 

A < K , J ) =SNA*HOLDK I -CSA*A ( K , J ) 

19 CONTINUE 

20 A ( I , J ) =0 . 0 
SIGMA2-0.0 
DO 21 1=1 , N 
EIGEN < I ) =A < I , I ) 

21 S IGMA2=SIGMA2+E IGEN ( I ) **2 

IF ( 1 . D+0-SIGMA1 /SIGMA2. GE. EF'S3) GOTO 25 

WRITE (*,204) I TER , S I GMA2 , S 

RETURN 

25 WRITE (*,202) ITER, SIGMA1 ,SIGMA2 

26 S I GMA 1 =S I GM A2 

WRITE <* ,203) I TER , S , SIGMA1 ,SIGMA2 
RETURN 

01 FORMAT (1 PSD 14. 5) 

02 FORMAT <* ITER=',I4,' SIGMA1= ' , 1P1D10. 2, ' SIGMA2= ' , lPIDlO. 2) 

203 FORMAT (' NO CONVERGENCE WITH ',14,' ITERATIONS'/' S= ' , 1P1D10. 

1 S I GMA 1=', 1P1D10. 2, SIGMA2= ', 1P1D10. 2) 

204 FORMAT < ' CONVERGENCE OBTAINED WITH , 14,' ITERATIONS'/' SIGMA 

1 , 1P1D10. 2,' S=' , 1P1D10. 2) 

205 FORMAT ( OE I GENVALUE ITERATION LOOP ' ) 

END 
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$3 TOR AGE: 2 

SUBROUTINE CKNORM (CK , SQRTMI , CKQ) 

REAL*8 CKQ <16,16) 

REAL*4 CKI16, 16) , SQRTMI (16) 

C GENERATE C CK ] C CM I =CKP 

DO 10 1=1,16 
DO 10 J=1 , 16 

10 CKQ ( I , J > =CK ( I , J ) *SQRTMI ( J ) *SQRTMI (I) 

C WRITE (6 , 100) 

100 FORMAT ( 'ONORMAL I ZED STIFFNESS MATRIX, LOWER LEFT TRIANGLE') 
DO 20 1=1,16 

20 WRITE (6, 110) I, <CKQ(I ,J> , J=1 , I> 

110 FORMAT (' ROW ' , 13/ < 1P6E12. 4) ) 

END 
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♦STORAGE: 2 

■ SUBROUT 1 ME STIFF < PLATA 1 .CIO 
REAL *4 PDA T A 1 (20) ,CK (16,16) 

El.=PDATAl ( 5 / 3 . 

ALFA=PDATA1 (3) *PDAT A 1 <4>/EL**3 
BETA=PDATA1 ( 1 ) *F'DAT A 1 (2) /EL**3 
C CASING TRIANGULAR STIFFNESS MATRIX 

CK ( 1 , 1 > = 1 2 . *ALFA+ PDATA 1(11) +PDATA 1 (13) 

CK (2 , 2) =4 . *EL**2*ALFA 
' CK ( 3 , 3 > =24 . •* ALFA+PDATA J ( 1 6 > 

CK (4,4) . *CK (2,2) 

CK ( 5 , 5 >'=24 . * ALF A+PDATA 1 ( 14) +PDATA1 (17) 

CK (6.6) =CK (4,4) 

CK < 7 , 7 ) = 1 2 . *ALF A+PDA TA1 < 12) 

CK ( 8 , 3 ) =CK (2,2) 

CK ( 2 , 1 ) =6 . *EL* ALF A 
CK (4,1) =CK (2, 1 ) 

CK (3,2) =~CK (2,1) 

CK (6,3) =CK ( 2 , 1) 

CK (5,4) = -CK (2,1) 

CK (8,5) =CK (2,1) 

CK< 7,6) =-CK (2,1 ) 

CK ( S , 7 ) =-CK (2,1) 

CK (3,1) =-12. *ALFA 
CK (5,3) =CK < 3 , 1) 

CK <7 ,5) =CK <3, 1) 

CK (9,1) =--PDAT A 1 (13) 

CK (4,2) =CK (2,2) /2. 

CK (6,4) =CK (4,2) 

CK (8,6) =CK (4,2) 

CK (13,5) =--PDATAl (14) 

C ROTOR TRIANGULAR STIFFNESS MATRIX 

CK (9 , 9 ) = 12. *BET A+PDATA 1 (13) 

CK (10, 10)=4.*EL**2*BETA 
CK (11,11) =24. *BETA 
CK (12, 12) =2. *CK(10, 10) 

CK (13, 13) =CK (11 ,11) +FDATA1 (14) 

CK (14, 14)=CK( 12, 12) 

CK ( 1 5 , 1 5 ) = 1 2 . *BET A 
CK ( 1 6 , 16) =CK (10,10) 

CK ( 1 0 , 9 ) =6 . *EL*BETA 
CK < 1 2 , 9 ) =CK (10,9) 

CK (11, 10 ) = -CK (10,9) 

CK ( 1 4 , 1 1 ) =CK (10,9) 

CK (13, 12) =~CK (10,9) 

CK (16, 13) =CK (10,9) 

CK (15, 14) = -CK (10,9) 

CK (16, 15) =~CK (10,9) 

CK (11 ,9>=— 12. »BET A 
CK (13,11) =CK (11,9) 

CK (15,13) =CK (11,9) 

CK (12, 10) =CK ( lO, 10) /2. 

CK (14.12) =CK (12,10) 

CK (16,14) =CK (12,10) 

C FILL IN SYMMETRICAL MATRICIES 

DO 10 1=1,15 
DO 10 J=1,I 

10 CK(J,I + 1) =\CK ( I + 1 , J ) 

C WRITE (6 , 100 ) 

C 100 FORMAT C OF'LANAR STIFFNESS MATRIX, LOWER LEFT TRIANGLE' 

C DO 20 1=1,16 

C 20 WRITE (6, 110) I , (CK ( I , J ) , J=1 , I > 

C 110 FORMAT (' ROW ' , 13/ ( 1P6E12. 4) ) 

END 


RI/RD84-191 

E-6 



n n 


^STORAGE: 2 

SUBROUT I NE SORT (EIGEN, SHAPE , CM , GM , RPS , CPS , SGRTM ) 

REAL*8 EIGEN (16) , SHAPE ( 1 6 , 16) , DUM 
REAL*4 CM (16) ,GM<16) ,RF‘S(16) ,CF'S(16> ,SQRTM(16> 

SORT SMALLEST EIGENVALUES (F**2> AND MODE SHAPES FIRST. 
COMPUTES FREQ IN RAD/SEC AND CYCLES/SEC 
P I =3 . 14159 
DO 10 1=1,15 
J1=I+1 

DO 10 J=J1 ,16 

IF (EIGEN < I ) . LE. EIGEN(J) > GOTO 10 
DUM=EIGEN ( I ) 

EIGEN ( I > =E I GEN ( J ) 

E IGEN ( J ) =DUM 
DO 20 K=1 ,16 
DUM=SHAF’E ( I , K) 

SHAPE ( I ,K) =SHAPE ( J ,K> - - - 

20 SHAPE (J,K)=DUM 
10 CONTINUE 
C NORMALIZE MODE SHAPES 

DO 40 1=1,16 
GM ( I ) =0. 

RPS ( I ) =DSQRT (EIGEN ( I ) > 

CPS ( I ) =RPS ( I ) /2. /PI 
DO 25 J = 1 , 16 

25 SHAFE ( J , I ) =SHAF'E ( J , I > *SQRTM ( J ) 

' DUM=DABS (SHAPE ( 1 , I ) > 

JMAX= 1 

DO 30 J=3, 15,2 

IF(DUM.GE. DABS (SHAPE (J, I) >) GOTO 30 
JMAX=J 

DUM=DABS (SHAPE ( JMAX , I ) > 

30 CONTINUE 

DO 40 J = 1 , 16 

SHAPE ( J , I ) =SHAFE < J , I ) /SHAPE (JMAX , I > 

GM ( I ) =CM ( I ) *SHAFE ( J , I ) **2+GM ( I ) 

40 CONTINUE 
END 
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PROGRAM R0T0R2 

F:EAL*8 E X GEN (16) , SHAPE (16,16), CKQ8 (16,16) 

REAL*4 CK( 16, 16) ,CM(16> ,SQF.TMI (16) ,SQRTM( 16) , CKP (16, 16) , CPS ( 16) 
, GMASS (16) , RPS (16) 

CHARACTER *28 W1 (20) ,W2 <20) 

D I MENS I ON F'DAT A 1 ( 20 ) , PDAT A2 ( 20 ) 

W1(1)='RQTQR SECTION MODULUS, I 

W1 (2)=' ROTOR ELASTIC MODULUS, E 

Wl<3>= "CASE SECTION MODULUS, I 

W1 (4 > = ' CASE ELASTIC MODULUS, E 

W 1 (5 ) = ' ROTOR LENGTH, L 

W 1 ( 6 ) = ' I MPELLER WE I GHT , W 

W1 (7) =' IMPELLER RADIUS OF GYRATION ' 

W1 (8) = ' TURBINE WEIGHT 
W1 (9) = 'TURBINE RADIUS OF GYRATION 
W1 (10)= 'CASING WEIGHT 
W1 (11)=‘CASING SPRING TO GROUND K1 
W1 (12)= 'CASING SPRING TO GROUND K4 ' 

W1 (13)= ROTOR BEARING SPRING K51 
W1 (14)= 'ROTOR BEARING SPRING K73 
W1 (15)= 'ROTOR SHAFT WEIGHT 
W1 (16)= 'CASING SPRING TO GROUND K2 
W1 ( 17)= 'CASING SPRING TO GROUND K3 ' 

W2 ( 1 ) = ' REF. RPM FOR COUPLING COEF. ' 

W2 (2) = DIRECT STIFFNESS AT IMPELLER' 

W2 (3) = 'DIRECT DAMPING AT IMPELLER ' 

W2 (4)=' DIRECT STIFFNESS AT TURBINE ' 

W2 (5)=' DIRECT DAMPING AT TURBINE 
W2 (6) = ALFORD COEF AT IMPELLER 
W2 (7) = 'ALFORD COEF AT TURBINE 
W2 (8) = 'LOWEST RPM OF INTEREST 
W2 (9) = HIGHEST RPM OF INTEREST 
W2(10)='RPM INCREMENT 

W2 (11) = ' MODAL DAMPING, 7. OF CRITICAL' 

P I =3 • 14159 
G=386 . 

OPEN ( 5 , F I LE= ' CON ' ) 

OPEN ( 6 , F I LE= ' PRN ' ) 

OPEN ( 7 , F I LE= ' PDATA 1 . STR ' , STATUS= ' OLD ' ) 

OPEN (8 , F ILE= ' PDATA2. STR ' , ST ATUS= ' OLD ' ) 

WRITE (6, ' (A) ' ) ' 1SIMPLIFIED OVERHUNG ROTOR MODEL. *N0 ZERO COEF* 
REVIEW AND UPDATE SPRING-MASS-GEOMETRY COEF 
READ (7 , 105) ( PDATA 1 (I) ,1=1 ,20) 

REWIND 7 
WRITE!*, 110) 

FORMAT < 'OUPDATING INSTRUCTIONS'/ 

' < RETURN > ACCEPTS CURRENT VALUE'/ 

' ''NEW VALUE ' '<RETURN> UPDATES DATA VALUE') 

WRITE (*,100) 

DO 20 1=1,17 

WRITE!*, 1 15) I ,W1 (I) , PDATA 1 (I) 
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lOO FORMAT! 'OSPR I NG-MASS INPUT DATA STRING - ) 

READ (*,130) X 
IF(X.EQ.O) GOTO 20 
PDATA1 ( I ) =X 
20 CONTINUE 

WRITE <7, 105) (PDATA1 (I) ,1=1,20) 

REWIND 7 
WRITE (6 , 100) 

DO 29 1=1 , 17 

29 WRITE (6 , i35) I ,W1 < I ) ,PDATA1 < I ) 

CALL STIFF (PDATA1 ,CK) 

CALL CMASS(PDATA1 , CM , SQRTM , SQRTMI ) 

CALL CKNORM (CK , SORTMI , CKQS) 

CALL JACOBI (CKQ8, SHAPE, EIGEN) 

CALL SORT (EIGEN, SHAPE, CM, GMASS,RPS, CPS, SQRTM) 

WRITE (6, 140) 

140 FORMAT ( 'OZERO SPEED SVSTEM CHARACTERISTICS ' / 

1 ' PLANAR STIFFNESS. LOWER LEFT TRIANGLE - ) 

DO 10 1=1,16 

10 WRITE (6 , 1 45) I , (CK ( I , J) , J=1 , I ) 

WRITE (6, 141) 

141 FORMAT ( 'OTRACE OF MASS MATRIX - ) 

WRITE(6,105) (CM ( I ) , 1=1 , 16) 

WRITE (6,1 42) 

WRITE (5, 142) 

142 FORMAT! 'OMODE NUMBER, FREQ(HZ) .GENERALIZED MASS') 

WRITE (6, 162) (I ,CPS(I) ,GMASS < I > , 1=1 , 16) 

WRITE (*, ' (A\> ' ) 'OINPUT MAXIMUM MODE NUMBER OF INTEREST. 
READ (*,125) MAXMOD 
WRITE (6 , 126) 

126 FORMAT ( - OMODE SHAPES ( (CASE , ROTOR) TRANSLATION .ROTDTION) ' ) 
DO 25 1=1, MAXMOD 
WRITE (6, 128) I 
128 FORMAT (IX, - M0DE= - ,I3> 

WRITE (6, 167) ( SHAPE ( J , I > , J= 1 , 15 , 2> 

25 WRITE (6 , 167) (SHAPE < J , I > , J=2 , 16 , 2> 

40 READ (8, 105) (PDATA2 ( I ) , 1=1 , 14) 

REWIND 8 
WRITE (* , 150) 

150 FORMAT ( ' OCOUPL I NG COEF DATA STRING - ) 

DO 70 1=1,7 

59 WRITE (*,115) I , W2 ( I > , PDAT A2 ( I ) 

READ (*,130) X 
IF(X.EQ.O) GOTO 70 
FDATA2(I)=X 
70 CONTINUE 

WRITE (8, 105) (PDATA2< I) ,1=1,14) 

REWIND 8 
WRITE (6, 150) 

DO 79 1=1 ,7 

79 WRITE (6, 135) I , W2 < I > , PDATA2 ( I > 

50 WRITE!*, 170) 

170 FORMAT CORPM RANGE PARAMETERS AND MODAL DAMPING) 

DG 80 I =3 ,11 

WRITE (*,115) I , W2 ( I ) , PDATA2 ( I ) 

READ (*,130) X 
IF ( X . EQ. O) GOTO 80 
PDATA2 ( I ) =X 

80 CONTINUE 

90 WRITE (6,170) 

DO 89 1=8,11 

89 WRITE (6, 135) I , W2 ( I ) , PDATA2 ( I ) 

WRITE (8, 105) (PDATA2 ( I ) ,1=1,14) 

REWIND 8 

START LOOP FOR SPEED VARIATIONS 
RPMN0W=PDATA2 (8) -PDATA2 ( 10) 
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200 RPMN0W=PDATA2 (10) +RPMN0W 
CPSN0W=RPMN0W / 60 . 

0MEGA=2 . #P I *CF'SN0W 
WR I TE ( 6 , 1 60 > RPMNOW , CF'SNOW , OMEGA 
160 FORMAT ( ' OSHAFT SPEED'/' REV/MIN= , ' 1P1E13. 6 , 

l' ' REV/SEC= ' , IP IE 1 3. 6 , RAD/SEC ', 1P1E13. 6/ 

2 'OMODE' ,5X, 'REAL' ,9X, .' IMAGINARY' ,4X, 'FREQUENCY (HZ) ' ,4X, 

3 'DAMPING,"/.') 

C COMPUTE MODES WITH SPEED DEPENDANT STIFFNESS 

CK1=F’DATA2 (2) * (RPMNOW/ PD AT A2 ( 1 ) ) **2 
. CK2=F'DATA2 (4) * (RPMN0W/PDATA2 ( 1 ) > **2 
DO 30 1=1,16 
DO 30 J=1 , 16 
30 CKP (J , I ) =CK (J , I ) 

CKP (3,3) =CKP (3,3) +CK 1 
CKP (7,7) =CKP ( 7 , 7 ) +CK2 
CKP (11,11) =CKP (11,11) +CK 1 
CKP (15,15) =CKP ( 1 5 , 1 5 ) +CK2 
CALL CKNORM ( CKP , SQR'TM I , CKQ8 > 

CALL JACOBI (CKQS, SHAPE, El GEN) 

CALL SORT (EIGEN, SHAPE , CM , GMASS , RPS , CPS , SQRTM > 

COMPUTE DAMPING AND CROSS COUPLING TERMS 
QUADRATIC FORM IS "S**2+ (BR-BI i > *S+ (CR-CI i ) =0 
DO 210 1=1, MAXMOD 

DUM= (PDATA2 (3) * (SHAPE (3 , I ) -SHAPE (11,1)) **2+F'DATA2 (5) * (SHAPE (7,1 
1 > -SHAPE (15, I) )**2)/GMASS(I)*RPMN0W/PDATA2(l> 

BR=PDATA2 (11) *RPS ( I ) /50. +DUM 

BI= (PDATA1 (6)*F'DATA1 ( 7 ) **2*SHAPE ( 12 , I)**2+PDATA1 (8>*PDATA1 <9>**2 
1 *SHAPE ( 16, I ) **2) *OMEGA/GMASS( I ) /'G 
CR=RPS ( I ) **2 
CI=DUM*0MEGA/2. 

C COMPUTE ROOTS OF QUADRATIC 

ARGR= ( BR**2-B I *-*2 ! /4. -CR 
ARGI=CI-BR*BI/2. 

AMAG=SQRT ( ARGR**2+ARGI **2 ) 

AMAG=SQRT (AMAG) 

F'HI=ATAN2 (ARGI , ARGR) /2, 

DR=AMAG*COS (PHI ) 

DI=AMAG*SIN (F'HI ) 

SRl=DR-BR/2. 

SI l=DI+BI/2. 

SR2=-DR-BR/2. 

SI2=BI/2.~DI 

FREQ1=SIGN (SQRT (SR1**2+SI 1**2) ,511) 
FREQ2=SIGN(SQRT(SR2**2+SI2**2) ,SI2) 

ZETA1=-SR 1*100. /ABS(FREQl) 

ZETA2=-SR2*100. /ABS(FREQ2) 

FREQ 1 -FREQ 1/2. /PI 
FREQ2-FREQ2/2. /PI 

WRITE (6 , 155) I , SRI , SI 1 ,FREQ1 , ZETA1 
WRITE (6 , 165) SR2 , S 1 2 , FREQ2 , ZETA2 
210 CONTINUE 

I F ( RPMNOW . LT . PDATA2 ( 9 ) ) GOTO 200 
WRITE (*,180) 

180 FORMAT (IX/' INSERT KEY TO REENTER PROGRAM AS FOLLOWS'/ 

1 ' 1 RPM RANGE AND MODE NUMBER'/' 2 COUPLING COEF+RF'M RANGE ETC' 

2 /' 3 MASSES, SPR INGRATES, ETC.'/' 4 QUIT PROGRAM ', 2X , \ ) 

READ (*,125) NST ART 

GOTO (50, 40, 1 ,85) NST ART 
105 FORMAT (1P5E14. 6) 

115 FORMAT ( 1 X , 1 4 , A30 , 1 P 1 E 1 4 . 6 , 2X \ ) 

125 FORMAT (BN, 14) 

1 30 FORMAT ( BN , 5F 1 2 , 0 ) 

135 FORMAT ( IX, 14. A31 , 1P1E14. 6) 

145 FORMAT (' ROW ' , 13/ ( 1P5E14. 5) ) 

1 55 FORMAT ( ' 0 ' , 1 3 , 1 P4E 14.5) 

1 65 FORMAT ( 4X , 1 P5E 14.5) 

1 62 FORMAT ( 1 X , I 3 , 1 P2E 1 4 . 5 ) 

167 FORMAT (IX, 1P4E14.5) 

85 END 
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SAMPLE RUN 


SIMPLIFIED OVERHUNG ROTOR MODEL. *NO ZERO COEF* 


SPRING- MASS INPUT DATA STRING 

1 ROTOR SECTION MODULUS, I 

2 ROTOR ELASTIC MODULUS, E 

. 3 CASE SECTION MODULUS , I 

4 CASE ELASTIC MODULUS, E 

5 ROTOR LENGTH, L 

6 IMPELLER WEIGHT, W 

7 IMPELLER RADIUS OF GYRATION 

S TURBINE WEIGHT 

9 TURBINE RADIUS OP GYRATION 

10 CASING WEIGHT 

11 CASING SPRING TO GROUND K1 

12 CASING SPRING TO GROUND K4 

13 ROTOR BEARING SPRING K51 

14 ROTOR BEARING SPRING K73 

15 ROTOR SHAFT WEIGHT 

16 CASING SPRING TO GROUND K2 

17 CASING SPRING TO GROUND K3 


1 . 000000E+01 
3. 000000E+07 
2. OOOOOOE+02 
3. OOOOOOE+07 
2 . 400000E+0 1 
1 . 500000E+0 1 
2. OOOOOOE+OO 
2 . OOOOOOE+O 1 
2 . OOOOOOE+OO 
2. 500000E+02 
1 . OOOOOOE+06 
1 . OOOOOOE+06 
1 . 0000D0E+06 
1 . OOOOOOE+06 
2 . 500000E+0 1 
1 . 000000E+06 
1 . OOOOOOE+06 


ZERO SPEED SYSTEM CHARACTERISTICS 
PLANAR STIFFNESS. LOWER LEFT TRIANGLE 
ROW 1 

1 . 42625E+08 
ROW 2 

5 . 62500E+08 3 . OOOOOE+09 

ROW 3 


- 1 . 40625E+08 

-5. 62500E+08 

2 . 82250E+08 



ROW 4 

5.625O0E+08 
ROW 5 

1 . 50000E+09 

. OOOOOE+OO 

6. OOOOOE+09 


. OOOOOE+OO 
ROW 6 

. OOOOOE+OO 

- 1 . 40625E+0B 

-5. 62500E+08 

2. 83250E+08 

. OOOOOE+OO 

. OOOOOE+OO 

5. 62500E+08 

1 . 50000E+09 

. OOOOOE+OO 

6. 00000E+09 

ROW 7 





. OOOOOE+OO 
-5. 62500E+08 

. OOOOOE+OO 
1 . 41625E+08 

. OOOOOE+OO 

. OOOOOE+OO 

-1. 40625E+08 

ROW 8 

. OOOOOE+OO 
1 . 50000E+09 
ROW 9 

. OOOOOE+OO 
-5. 62500E+08 

.OOOOOE+OO 
3. OOOOOE+09 

. OOOOOE+OO 

5. 625O0E+O8 

-1 . 00000E+06 
. OOOOOE+OO 
ROW 10 

. OOOOOE+OO 
. OOOOOE+OO 

. OOOOOE+OO 
. OOOOOE+OO 

. OOOOOE+OO 
8. 03125E+06 

. OOOOOE+OO 

. OOOOOE+OO 

, OOOOOE+OO 

. OOOOOE+OO 

. OOOOOE+OO 

. OOOOOE+OO 

. OOOOOE+OO 
ROW 1 1 

. OOOOOE+OO 

. OOOOOE+OO 

2. 8 1250E+07 

1 . 50000E+08 

.OOOOOE+OO 

. OOOOOE+OO 

. OOOOOE+OO 

. OOOOOE+OO 

. OOOOOE+OO 

. OOOOOE+OO 
1 . 40625E+07 
ROW 12 

• OOOOOE+OO 

/*» r\ r % r\ cr a. r\ 

a VWVVL. ■ 

— ? m 03 1 25E+06 

-2. B1250E+07 

. OOOOOE+OO 

. OOOOOE+OO 

. OOOOOE+OO 

. OOOOOE+OO 

. OOOOOE+OO 

. OOOOOE+OO 
. OOOOOE+OO 

. OOOOOE+OO 
3. 00000E+08 

. OOOOOE+OO 

2. 81250E+07 

7 . 50000E+07 

ROW 13 

. OOOOOE+OO 

. OOOOOE+OO 

. OOOOOE+OO 

. OOOOOE+OO 

- 1 . 00000E+06 

. OOOOOE+OO 
-7. 03125E+06 
ROW 14 

. OOOOOE+OO 
-2. 81250E+07 

. OOOOOE+OO 
1 . 50625E+07 

. OOOOOE+OO 

. OOOOOE+OO 

. OOOOOE+OO 

. OOOOOE+OO 

. OOOOOE+OO 

. OOOOOE+OO 

. OOOOOE+OO 

. OOOOOE+OO 
2. 81 250E+07 

. OOOOOE+OO 
7. 5D000E+07 

. OOOOOE+OO 
, OOOOOE+OO 

. OOOOOE+OO 
3. OOOOOE+08 

. OOOOOE+OO 
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ROW 15 

. OOOOOE+OO 
. OOOOOE t-00 
. OOOOOE+OO 
ROW 16 


, OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 


. 

OOOOOE+OO 

OOOOOE+OO 

. 

OOOOOE+OO 

OOOOOE +00 

1 . 

OOOOOE+OO 
50000 E +08 

OOOOOE+OO 2, 

RACE OF MASS MATR 

IX 

1 . 0 

79447E-01 5.7 

57052E— 01 2. 

1 . 1 

51410E+00 1.0 

79447 E -01 5. 

6. 044905E--02 1.9 

1 . 61 1975E-01 

28612E-01 2. 

tODE 

NUMBER , FREQ ( HZ > , GENERAL I ZE1 

1 

2. 61863E+02 

8.07490E-01 


3. 65282E+02 

2. 54921E+00 


4. 84212E+02 

9. 62453E-01 

4 

7. 24182E+02 

1 . 23855E+00 

5 

1 -61548E+03 

8. 85749E-01 

6 

2.0465BE+03 

1 . 75973E+01 

7 

2. 69500E+03 

1 . 95852E-01 

8 

4 . 58589E+03 

4 . R789SE+00 

9 

4. 64621E+03 

1 . 95787E-02 

10 

6. 40026E+03 

9. 82856E-01 

1 1 

8. 12393E+03 

2. 1 8926E+00 

12 

8. 66155E+03 

2. 79019E— 01 

13 

9.63382E+03 

1 . 99477E-0 1 

14 

1 . 16468E+04 

4. 17392E-01 

15 

1 . 451 49E+04 

6. 52244E-02 

16 

1 .49164E+04 

9. 1 1640E-01 


. OOOOOE+OO 
. OOOOOE+OO 
-7 . 03 1 25E+06 

OOOOOE+OO 
OOOOOE+OO 


. OOOOOE+OO 
. OOOOOE+OO 
-2.81 250E+07 

. OOOOOE+OO 
. OOOOOE+OO 
7. 50000E+07 


. OOOOOE+OO 
. OOOOOE+OO 
/ . 03 1 25E+06 

. OOOOOE+OO 
. OOOOOE+OO 
-2.81 250E+07 


57052E-01 


1.15141 OE+OO 2.1 58895E-0 1 
1 . 079447E— 02 5. 757052E-02 
1 . 1 5 1 4 1 OE-O 1 6 . 260794E-02 


MODE SHAPES ((CASE, 
MODE= 1 
-2. 60334E-01 
3. 40498E-02 
2. 1 1 694E+00 
-9. 12374E-03 
MODE= 2 

6 . 46777E-06 
4. 40293E-02 
1 . 51386E+00 
-1 . 79786E-04 
MODE= 3 
-1 . 93820E-02 
3. 62490E-02 
1.81 115E+00 
-1.94077E-02 
MQDE= 4 
-1.68797E-09 
-5. 39936E-09 
8. 15980E-08 
-2. 25465E-10 


ROTOR) TRANSLATION ,ROTOTION> 


< CHOOSe HA X I MUM 

mods of /urcaesr 


l . 
-l . 
l . 


-9. 

1 . 
- 8 . 


66227E-01 

57145E-02 

24333E+00 

27254E-02 

23647E-01 
OOOOOE+OO 
09966E- 03 
5781 IE-06 

OOOOOE+OO 

77466E-02 

70266E-01 

26701E-04 

24507E— 08 
OOOOOE+OO 
75198E-09 
41076E-10 


1 . OOOOOE+OO 
-1 . 57603E-03 
5. 92217E-01 
-2. 22519E-02 

1 . 58477E-04 
2. 68783E-05 
-4. 58423E-01 
-1 . 6904 IE-01 

1 . 17288E-02 
-6. 58832E-03 
3. 46877E-01 
-6.08625E-02 

6. 37635E-09 
-2. 26407E-1 1 
-4 . 75846E-08 
1 .95909E-01 


3. 54022E-02 
-1. 17430E— 02 
-5.43198E-02 
- 1 . 78992E-02 

-2. 42736E-04 
-1 . 08625E-01 
-3.71146E-05 
-1 . 74776E-01 

-3. 57168E-02 
-6. 48599E-02 
5. 59443E-02 
1 . 08035E— 01 

1 . 32224E-09 
— 1 . 02150E— 01 
-1 . 86178E-09 
1 . 63909E-01 


COUPLING COEF DATA STRING 

1 REF. RPM FOR COUPLING COEF. 

2 DIRECT STIFFNESS AT IMPELLER 

3 DIRECT DAMPING AT IMPELLER 

4 DIRECT STIFFNESS AT TURBINE 

5 DIRECT DAMPING AT TURBINE 

6 ALFORD COEF AT IMPELLER 

7 ALFORD COEF AT TURBINE 


3. 000000E+04 
1 . 000000E+04 
1 . 500000E+01 
1 . 000O00E+03 
1 . OOQOOOE+O 1 
2. 000000E+03 
4 . OOOOOOE+03 
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RF'M RANGE PARAMETERS AND MODAL DAMPING 

8 LOWEST RPM OF INTEREST 1 . 000000E+04 

9 HIGHEST RPM OF INTEREST 3. 000000E+04 

10 RPM INCREMENT 1 . 000000E+04 

11 MODAL DAMPING, 7. OF CRITICAL 1 . OOOOOOE+OO 


SHAFT SPEED 

REV/MIN= , 1 . 000000E+04 REV/SEC= 1 . 666667E+02 


MODE REAL 

1 - 1 . 65323E+01 
-1 . 65988E+01 

2 -2. 57S44E+01 
-2. 74128E+01 


IMAGINARY 

1 . 64583E+03 
-1 . 64564E+03 

2. 29734E+03 
-2.29474E+03 


FREQUENCY (HZ) 

2.61 956E+02 
-2. 6 1926E+02 

3.65656E+02 
—3. 65246E+02 


RAD/SEC 1 . 047197E+03 

DAMPING, % 

1 . 00444E+00 
1 . 00860E+00 

1. 12229E+O0 
1 .19451 E+OO 


3 -3. 23904E+01 
~3 .31 736E+0 1 

4 -4. 73379E+01 
-4. 77563E+0 1 


3. 04365E+03 
-3 . 04 1 02E+O3 

4 . 55356E+03 
--4 . 54885E+03 


4. 84439E+02 
-4. 84022E+02 

7. 24762E+02 
-7.24013E+02 


1.06414E+00 
1.0908 IE +00 

1 . 03952E+00 
1 . 04980E+00 


SHAFT SPEED 

REV/MIN=, 2. 000000E+04 REV/SEC= 3.333333E+02 RAD/GEC 2.094394E+03 


MODE 

REAL 

IMAGINARY 

1 

-1 . 65536E+01 

1 . 64738E+03 


—1 . 68248E+01 

-* 1 . 6470 1 E +03 

2 

-2. 69885E+01 

2. 30177E+03 


-3. 35455E+0 1 

-2.29657E+03 


FREQUENCY (HZ) DAMPING, - /. 

2. 62203E+02 1 . 00479E+00 

-2 . 621 43E+02 1.02149E+00 

3. 66363E+02 1.17243E+00 

-3 . 65549E+02 . 1 . 46052E+00 


3 

-3 . 35506E+01 
—3 . 67350E+0 1 

3.04530E+03 
-3.04003E+03 -■ 

4 

“4- 87351E+01 
-5.05016E+01 

4. 55977E+03 
-4 . 55035E+03 - 

SHAFT SPEED 

REV/M I N=, 3. 000000E+04 REV/SEC= 

MODE 

REAL 

IMAGINARY 

1 

-1.65156E+01 
-1 . 71361E+01 

1 . 64990E+03 
-1 . 64934E+03 

2 

-2. 65769E+01 
-4. 13355E+01 

2. 30829E+03 
-2. 30049E+03 


1 . 84704E+02 1.1O165E+00 

( . 83872E+02 1 . 20829E+00 

r . 25752E+02 1 . 06874E+00 

' . 24256E+02 1.10977E+OO 


5. 000000E+02 RAD /SEC 3. 141590E+03 

FREQUENCY (HZ) DAMPING, - /. 

Z. 62603E+02 1 . 00096E+00 

2.62515E+02 1.03891E+00 

5. 67400E+02 1. 15129E+00 

5 . 66 1 93E+02 1 . 79653E+00 


3 -3. 39049E+01 

-4. 1 1080E+01 


3. 0471 7E+03 4.85003E+02 

-3. 03928E+03 -4.83760E+02 


1 . 1 1260E+00 
1 .35244E+00 


-4. 96955E+01 
-5 . 37354E+0 1 


4. 56856E+03 
-4. 55444E+03 


7 . 271 52E+02 
-7. 24912E+02 


1.08771 E+OO 
1 . 1 7976E+00 


RPM RANGE PARAMETERS AND MODAL DAMPING 


8 LOWEST RPM OF INTEREST 

9 HIGHEST RPM OF INTEREST 

10 RPM INCREMENT 

11 MODAL DAMPING, 7. OF CRITICAL 


< 


4 . 000000E+04 
6. OOOOOOE+04 
1.000000E+04 
1 . OOOOOOE+OO 


tSLecT 4Dt>4 

R on IUFC*M*T*>K> 
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SHAFT SPEED 

REV/MIN=, 4 . 000000E+04 REV/SEC= 6.666667E+02 RAD/SEC 4. 188787E+03 


MODE 

REAL 

IMAGINARY 

FREQUENCY (HZ) 

DAMPING, 7. 

1 

-1 . 64155E+01 
-1.75390E+01 

1 . 65337E+03 
— 1 . 65264E+03 . 

2. 63156E+02 
-2 ■ 63040E+02 

9.92800E-01 

1.06121E+00 

9 

-2. 457 17E+01 
-5.07607E+01 

2. 31689E+03 
-2. 30649E+03 

3. 68765E+02 
-3. 67 178E+02 

1 . 06049E+00 
2. 20025E+00 

3 

-3. 34540E+01 
-4. 62931E+01 

3. 04930E+03 
”3 . 03877E+03 

4. 85341E+02 
-4 . 83692E+02 

1 . 097O4E+00 
1 . 52324E+00 

4 

-5. 02235E+01 
-5.74532E+01 

4. 57994E+03 
~4 . 56 1 1QE+03 

7. 28964E+02 
-7 . 25980E+02 

1 . 09653E+00 
1 . 25953E+00 

SHAFT SPEED 

REV/M I N=, 5 . 0Q000GE+04 REV/SEC 

= 8. 333333E+02 

RAD/SEC 5. 235983E+03 

MODE 

REAL 

IMAGINARY 

FREQUENCY (HZ) 

DAMPING,'/. 

1 

-1.624S3E+01 
-1 . 804 13E+01 

1 . 65779E+03 
— 1 . 65689E+03 

2. 63859E+02 
-2. 637 18E+02 

9. 80072E-01 
1 . 08880E+00 

2 

-2. 10020E+01 
-6. 1 7901E+0 1 

2. 32750E+03 
-2.31450E+03 

3. 70449E+02 
-3.68496E+02 

9. 02304E-01 
2. 66874E+00 

3 

-3. 219B6E+01 
-5. 22898E+01 

3. 05167E+03 
-3. 03851E+03 

4. 857 16E+02 
-4 . S3665E+02 

1 . 05505E+00 
1 . 72065E+00 

4 

-5.03245E+01 
-6. 1 6497E+0 1 

4. 59389E+03 
-4 . 57035E+03 

7.31 185E+02 
—7. 27461E+02 

1 . 09540E+00 
1 . 34878E+00 

SHAFT SPEED 

REV/M I N= , 6. 000000E+04 REV/SEC 

= 1 . OOOOOOE+03 

RAD/SEC 6 . 283 1 80E+03 

MODE 

REAL 

IMAGINARY 

FREQUENCY (HZ) 

DAMPING,’/. 

1 

- 1 . 60070E+01 
-1 . S6536E+01 

1 . 66314E+03 
- I . 66208E+03 

2. 64709E+02 
-2.64545E+02 

9. 62410E-01 
1. 12223E+00 

2 

-1 . 59050E+01 
-7. 43859E+0 1 

2. 3401 IE +03 
—2. 32450E+03 

3. 72449E+02 
-3. 70146E+02 

6. 79656E-01 
3. 19844E+00 

.3 

-3. 01400E+01 

._«=r. nAo-7717 '.;": * 

3.05428E+03 
-3 . 03847E +03 

4 . 86 127E+02 
—4 . 836S0E+02 

9.86764E-01 
1 . 94460E+00 

4 

-5. 00049E+0 1 
-6. 63184E+01 

4.61 043E+03 
-4.58218E+03 

7. 33817E+02 
-7.29354E+02 

1 . 0B454E+00 
1 . 44716E+00 


RI/RD84-191 

E-14 


